Bonne fin de SoiréeIf TrouveRefC Is Nothing Then
Sheets("Détail").Range("1:29").Copy Sheets("T1").Range("A65536").End(xlUp)(L)
With Sheets("Facture").Range("1:50").Copy
End With
With Sheets("T1").Range("A65536").End(xlUp).Offset(1, 0)
.PasteSpecial Paste:=xlValues
.PasteSpecial Paste:=xlFormats
End With
Else
'si une modification est en cours
Sheets("Détail").Range("A1:G29").Copy TrouveRefC.Offset(-2, -6)
With Sheets("Facture").Range("A1:G50").Copy
End With
Private Sub CommandButton2_Click() 'boutton "TOURNEE 1"
'J'enregistre les fiches pour la "T1"
If Range("G3").Value >= "C001" And Range("G3").Value <= "C054" Then
If Range("G3").Value = "C001" Then
L = 1
Else: L = 3
End If
'si une modification n'est pas en cours
If trouverefc Is Nothing Then
Sheets("Détail").Range("1:29").Copy Sheets("T1").Range("A65536").End(xlUp)(L)
Sheets("Facture").Range("1:50").Copy Sheets("T1").Range("A65536").End(xlUp).Offset(1, 0)
Else
'si une modification est en cours
Sheets("Détail").Range("A1:G29").Copy trouverefc.Offset(-2, -6)
Sheets("Facture").Range("A1:G49").Copy trouverefc.Offset(27, -6)
[B][COLOR="Green"] trouverefc.Offset(1, -6).FormulaLocal = _
"=recherche(" & trouverefc.Address & ";'C:\RAPID\GESTION\[C.xls]Feuil1'!$A$2:$A$130;'C:\RAPID\GESTION\[C.xls]Feuil1'!$B$2:$B$130)"[/COLOR][/B]
End If
End If
'J'envoie "l'AnnexFacture1"vers la feuille"T1"
If Range("G3").Value = "C054" Then
'si une modification n'est pas en cours
If trouverefc Is Nothing Then
Sheets("AnnexFacture1").Range("1:50").Copy Sheets("T1").Range("A65536").End(xlUp).Offset(1, 0)
Else
'si une modification est en cours
Sheets("AnnexFacture1").Range("A1:G49").Copy trouverefc.Offset(73, -6)
End If
End If
End Sub
'Sheets("Détail").Range("A4").FormulaLocal = _
'"=recherche(G3;'C:\RAPID\GESTION\[C.xls]Feuil1'!$A$2:$A$130;'C:\RAPID\GESTION\[C.xls]Feuil1'!$B$2:$B$130)"
et m'excusant de l'erreure au dèpart
'si une modification n'est pas en cours
If trouverefc Is Nothing Then
Sheets("Détail").Range("1:29").Copy Sheets("T1").Range("A65536").End(xlUp)(L)
Sheets("Facture").Range("1:50").Copy Sheets("T1").Range("A65536").End(xlUp).Offset(1, 0)
[B][COLOR="Green"]Sheets("T1").Range("F65536").End(xlUp).Offset(-5, 0).Value = Sheets("Facture").Range("F7").Value[/COLOR][/B]
Else
'si une modification est en cours
Sheets("Détail").Range("A1:G29").Copy trouverefc.Offset(-2, -6)
Sheets("Facture").Range("A1:G49").Copy trouverefc.Offset(27, -6)
[B][COLOR="Green"]trouverefc.Offset(33, -1).Value = Sheets("Facture").Range("F7").Value[/COLOR][/B]
'Si la refclient n'est pas dans le groupage
If trouverefcgr Is Nothing Then
Sheets("Détail").Range("1:29").Copy Sheets("GroupageClients").Range("A65536").End(xlUp)(L)
Sheets("Facture").Range("1:50").Copy Sheets("GroupageClients").Range("A65536").End(xlUp).Offset(1, 0)
[B][COLOR="Green"]Sheets("T1").Range("F65536").End(xlUp).Offset(-5, 0).Value = Sheets("Facture").Range("F7").Value[/COLOR][/B]
Else
'Si la refclient est dans le groupage
Sheets("Détail").Range("A1:G29").Copy trouverefcgr.Offset(-2, -6)
Sheets("Facture").Range("A1:G50").Copy trouverefcgr.Offset(27, -6)
[B][COLOR="Green"]trouverefc.Offset(33, -1).Value = Sheets("Facture").Range("F7").Value[/COLOR][/B]
End If