1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
| Public val_mt As Double
Public compteur_ligne_nv_fen
Sub Nouvelle_fenetre()
'
' Nouvelle_fenetre Macro
'
'
Dim Ftravail As Worksheet
On Error Resume Next
Set Ftravail = Sheets("Calcul")
' Application.DisplayAlerts = False
' Worksheets("Calcul").Delete
' Application.DisplayAlerts = True
matrice = ThisWorkbook.Sheets(1).Range("S3:X1304")
If Ftravail Is Nothing Then
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Calcul"
End If
'.Name = "Calcul"
ThisWorkbook.Worksheets("Calcul").Range("D2").Value = "Compteur"
compteur = ThisWorkbook.Worksheets("Calcul").Range("E2").Value + 1
ThisWorkbook.Worksheets("Calcul").Range("E2").Value = compteur
ThisWorkbook.Worksheets("Calcul").Range("A2").Value = "Montant de la facture :"
ThisWorkbook.Worksheets("Calcul").Range("B2").Value = val_mt
Dim O_Cell As Object
Dim C_UI As Double
C_UI = ThisWorkbook.Worksheets("Calcul").Range("B2").Value 'valeur à chercher
Application.Goto Reference:=" matrice " ' "UI" est le nom de la zone de recherche
Set O_Cell = Selection.Find(C_UI) ' recherche de la valeur
If Not O_Cell Is Nothing Then 'si l'objet O_Cell contient les coordonnées de la cellule
MsgBox "J'ai trouvé"
O_Cell ' sélection de la cellule
' manque la commande qui dit que si la valeur exsiste alors prend la linge ( où il y a la valeur) de la colonne S à X
' Range ("Calcul")
' Range ("C_UI")
' Selection.Copy
' Sheets ("Feuil2")
'Range("A4").Select
'ActiveSheet.Paste
Range("C_UI").Copy Destination:=Sheets("Calcul").Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1)
' Dim rep As Variant
'rep = InputBox("Entrer la facture chercher")
'Sheets.Add.Name = "Calcul"
'With Worksheets("Calcul")
' .Range("A2") = "Formule"
' .Range("B2") = "Valeur"
' .Range("B3") = Application.Run("testelouis", 800, 1435, rep)
' End With
End If
End Sub |
Partager