Bonjour à toutes et àt ous 🙂
J'essaie de faire un code et je n'y arrive pas, ça coince :
Dans mon fichier, je suis sur ma feuille active "Facture",
Je voudrais écrire dans la feuille NON active "Sheets("Nbr RdV")"
Voilà ce que j'ai fait :
J'ai du mal pour le faire fonctionner.
Voudriez-vous me corriger ?
Si besoin, je ferai un fichier test.
Grand merci pour vos retours,
Je continue mes tentatives...
🙂
J'essaie de faire un code et je n'y arrive pas, ça coince :
Dans mon fichier, je suis sur ma feuille active "Facture",
Je voudrais écrire dans la feuille NON active "Sheets("Nbr RdV")"
Voilà ce que j'ai fait :
VB:
Sub EcrireNbrRdV()
With Sheets("Nbr RdV")
.[B2:e105].ClearContents
.ActiveSheet.Cells(Rows.Count, "b").End(xlUp)(2).Select '[a1].Select
.ActiveCell = Sheets("Facture").Range("a1").Value
.[C2].FormulaR1C1 = "=IF(RC[-1]="""","""",LOOKUP(RC[-1],Clients)&"" ""&LOOKUP(RC[-1],Clients1)&"" ""&""P"")"
.[C2].Copy
.[C3:C30].Select
.ActiveSheet.Paste
.[C2:C30].Copy
.[C2:C30].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.Range("B1").Select
End With
End SubVoudriez-vous me corriger ?
Si besoin, je ferai un fichier test.
Grand merci pour vos retours,
Je continue mes tentatives...
🙂