Afficher cellule depuis plusieurs feuilles

[niepce26]

Bonjour à tous,

J'ai actuellement un USF avec des textbox dans lesquels s'affichent des données provenant d'une feuille excel ("Données").

Je souhaite importer (dans d'autres txtbox) des données provenant d'une autre feuille excel ("Taille"), feuille se trouvant dans le même classeur.

Voici le code que j'ai:

Private Sub AfficherZones(lgLig As Long)
' Afficher le contenu des zones
With Worksheets("Données")
Newdevis.Caption = "Consultation Devis"

cmdvalid.Caption = "Modifier"
cmdvalid.Locked = False


txtcommentairetailleelagage.Value = .Range("F" & lgLig).Value
txtcommentairedebroussaillagetonte.Value = .Range("G" & lgLig).Value
txtcommentaireplantation.Value = .Range("H" & lgLig).Value
txtcommentairelocationmiseendecharge.Value = .Range("I" & lgLig).Value

End Sub
End With

Merci par avance de vos réponses, bonne journée....

Niepce26

 

[skoobi]

Re : Afficher cellule depuis plusieurs feuilles

Bonjour,

Tu continus la macro en ajoutant simplement la référence à l'autre feuille:

.......
.........
With Sheets("Taille")
autretxtbox1.Value = .Range.........
autretxtbox2.Value = .Range.........
End With

 

[niepce26]

Re : Afficher cellule depuis plusieurs feuilles

Bonjour, skoobi

Merci beaucoup pour la réponse c'est impeccable....

Niepce26