XL 2021 Ecrire dans une une autre feuille

Usine à gaz · 12 Octobre 2023

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

job75 · 12 Octobre 2023

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 · 12 Octobre 2023

Bonjour Lionel,

- ôte le point devant ActiveSheet et ActiveCell

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

A+

job75 · 12 Octobre 2023

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

Usine à gaz · 12 Octobre 2023

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

XL 2021 Ecrire dans une une autre feuille

Usine à gaz

XLDnaute Barbatruc

job75

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires