Excell et liste de choix

ga a écrit:haaaa un autre amoureux d'excel ?

jojo2 a écrit:Salut,

Comment sont gérées tes données actuellement?

Les fonctions de tri ou recherche de base ne peuvent-elles suffire?

Cordialement.

ga a écrit:salut

Tu voudrais classer / chercher des classeurs enregistrées sous un n° de plans se trouvant dans un dossier ou alors c'est juste des n° de plans se trouvant dans la m^me feuille r ?

Code:

Dim ControlImprimer As Integer

Sub ImprimerOriginalCopie_QuandClic()
'
'
'
' Touche de raccourci du clavier: Ctrl+i
 If (Range("G1").Value = "") Then
 LaisserLaTva.Show
End If

    With ActiveSheet.PageSetup
.BlackAndWhite = True
End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
   
    With ActiveSheet.PageSetup
.BlackAndWhite = Faste
End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

If Sheets("Devis").Range("G1").Value = ("1") And Range("A10").Value = "DEVIS" Then
 
 Sheets("TVA 5,5%").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Devis").Select
 End If
 ControlImprimer = 1

End Sub
Sub ImprimerOriginal_QuandClic()

'
'
'
    With ActiveSheet.PageSetup
.BlackAndWhite = Faste
End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ControlImprimer = 1
   
 
End Sub

Sub ImprimerPDF()
 
'lancer l'impression du fichier sur PDFcreator
 
    Application.ActivePrinter = "PDFCreator sur Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator sur Ne00:", Collate:=True
       
End Sub


Sub Enregister()

If ControlImprimer = 0 Then
If MsgBox("Vous n'avez pas inprimer ce document !" & vbCrLf _
                    & "Il ne vous sera plus possible de le faire après avoir cliqué sur Ok", _
                    vbOKCancel, "Contrôle d'Impression") = vbCancel Then Exit Sub
End If


 If (Range("G1").Value = "") Then
 LaisserLaTva.Show
End If

 If (Range("A10").Value = "DEVIS") Then
 With ActiveSheet
            Dossier = CStr(.Range("A10").Value)
            Fichier = CStr(.Range("d11").Value) & (.Range(" B5").Value) & (.Range("A2").Value) & Format(Date, " dd-mm-yyyy")
            DossierMere = "J:\devis"
            End With
      If Trim(Dossier) = "" Then Exit Sub
      If Trim(Fichier) = "" Then Exit Sub
Dim Nom As String
Nom = [b5]
Sheets("Devis").Copy
ActiveWorkbook.SaveAs "j:" & Dossier & "" & Fichier & ".xls"
Workbooks("Devis&Facture++.xls").Close False

Else

  TTC = Sheets("Devis").Range("E97").Value
  Sheets("Chiffre d'affaire").Range("A500").End(xlUp).Offset(1, 0).Value = TTC
 
 With ActiveSheet
 
            Dossier = CStr(.Range("A10").Value)
            Fichier = CStr(.Range("d11").Value) & " " & (.Range(" B5").Value) & Format(Date, " dd-mm-yyyy")
            DossierMere = "J:\devis"
            End With
      If Trim(Dossier) = "" Then Exit Sub
      If Trim(Fichier) = "" Then Exit Sub

Nom = [b5]
Sheets("Devis").Copy
ActiveWorkbook.SaveAs "J:" & Dossier & "" & Fichier & ".xls"

'sélectionne un classeur
Workbooks("Devis&Facture++.xls").Activate

  Sheets("Sauvegarde").Select
    Range("A2:E99").Select
    Selection.Copy
    Sheets("Devis").Select
    Range("A2:E99").Select
    ActiveSheet.Paste
    Range("B5").Select
    Sheets("Sauvegarde").Select
    Range("B5").Select
    Application.CutCopyMode = False
   
   
   
Sheets("Options").Range("e2").Value = Sheets("Options").Range("e2").Value + 1


    Sheets("Devis").Select
    Rows("41:94").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=-51
    Range("B5").Select
    Workbooks("Devis&Facture++.xls").Close True
   

   
End If

End Sub






Code:

Public ControlImprimer as Integer

ga a écrit:Mais alors pourquoi vouloir te servir excel ?