XL 2021 Ecrire dans une une autre feuille

[Usine à gaz]

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 :

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 Sub

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...
🙂

 

[job75]

Bonjour Lionel,

- ôte le point devant ActiveSheet et ActiveCell

- n'utilise pas .Select, ça tu devrais le savoir.

A+

 

[job75]

Normalement tu devrais arriver à ceci :

Sub EcrireNbrRdV()
With Sheets("Nbr RdV")
   .[B2:e105].ClearContents
   ActiveSheet.Cells(Rows.Count, "b").End(xlUp)(2) = Sheets("Facture").Range("a1").Value
   .[C2].FormulaR1C1 = "=IF(RC[-1]="""","""",LOOKUP(RC[-1],Clients)&"" ""&LOOKUP(RC[-1],Clients1)&"" ""&""P"")"
   .[C2].Copy .[C3:C30]
   .[C2:C30] = .[C2:C30].Value
    Application.Goto .Range("B1") 'est-ce bien nécessaire ?
End With
End Sub

 

[Usine à gaz]

Bonour Gérard 🙂

Merci super comme d'habitude, c'est nickel.
Je te remercie 🙂
Oui, c'est vrai, je dois faire attention aux "sélects."
🙂