XL 2021 Ecrire dans une une autre feuille

Usine à gaz

XLDnaute Barbatruc
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 :
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 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...
:)
 
Solution
Normalement tu devrais arriver à ceci :
VB:
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

job75

XLDnaute Barbatruc
Normalement tu devrais arriver à ceci :
VB:
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
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
313 259
Messages
2 096 617
Membres
106 688
dernier inscrit
Cherif99