selectionner plusieurs feuille

  • Initiateur de la discussion Initiateur de la discussion PY
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

PY

Guest
Bonsoir a tous

je voudrais que ma variable myvar se retrouve dans la cellule B6 de la feuille archive, ce que fait le code suivant:

Worksheets("archive").Range("B6") = myvar

mais je voudrais ausi qu'elle se retrouve dans la feuille nommée accueil, la fonction woorksheets admet-elle plusieurs feuille quel'on puisse sélectionner ?
la procédure:

woorksheets("archive;accueil").range("B6")= myvar

est-elle correcte ?

merci de m'aider

PY
 
Pour sélectionner plusieurs feuilles, il faut utiliser un tableau (array) :
Sheets(Array("archives", "accueil")).Select

Quant à ta variable, c'est dans l'autre sens qu'il faut l'utiliser :
myvar = Worksheets("archive").Range("B6")
 
salut Yvette et les autres

voici le code que j'ai:

Sub enregistrer_facture()
dim msg as string

Sheets("facture").Select
msg = MsgBox("Enregistrer la facture", vbYesNo, "Enregistrer la facture")
If msg = vbNo Then Exit Sub

Sheets("archive").Rows("6:6").Insert shift:=xlDown
Sheets("archive").Rows("6:6").Interior.ColorIndex = xlNone

MonClient = Range("nomclient").Value
NumeroFacture = Range("NumFact").Value
MontantHT = Range("Total_HT").Value
MontantTTC = Range("Total_TTC").Value
Temps = Range("date").Value

With Worksheets("archive")
.Range("B6") = MonClient
.Range("C6") = NumeroFacture
.Range("D6") = MontantHT
.Range("E6") = MontantTTC
.Range("F6") = Temps
End With

End sub

en fait dans la méthode with worksheets("archive"), les variables sont affectées a la feuille archive qui les place à la ligne ,. cela fonctionne très bien.
je voudrais par le meme procédé les afficher aussi dans la feuille accueil, donc pouvoir sélectionner deux feuilles dans la méthodes with woorkshhets("archive").

Comment peut -on faire? Merci
 
bonjour

essaye cela

Worksheets(Array("feuil1", "feuil2")).Select
With Selection
.Range("B6").Value = "MonClient"
.Range("C6") = "NumeroFacture"
.Range("D6") = "MontantHT"
.Range("E6") = "MontantTTC"
.Range("F6") = "Temps"
End With

bye
STéphane
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Réponses
3
Affichages
772
Réponses
4
Affichages
697
Retour