de feuille en feuille

[laurent999]

Bonsoir tous le monde,

Dans un Classeur nommé "test".

J'ai une feuille "info"
en A1 est inscrit une date
en face de cette Date des infos en B,C,D pour l'exemple 1,2,3
et un Bouton.

En feuille 1 une colonne A une liste de Date.
Idem en Feuille 2 et 3.

Je voudrais que lorsque je clic sur le bouton.

Les infos situées en face de la date feuille"info" soient copiées et inscrite devant la même date située soit en feuille 1,2 ou 3.

Ci-joint un classeur Test.

Merci pour votre aide.

Laurent.

 

[JNP]

Re : de feuille en feuille

Bonsoir Laurent999 ,

Dim Feuille As Worksheet, Cellule As Range
For Each Feuille In ThisWorkbook.Worksheets
Set Cellule = Feuille.UsedRange.Find(Cells(1, 1))
If Cellule Is Nothing Then Exit Sub
Cellule.Offset(0, 1) = Cells(1, 2)
Cellule.Offset(0, 2) = Cells(1, 3)
Cellule.Offset(0, 3) = Cells(1, 4)
Next

devrait convenir.
Bonne soirée

 

[minipuce]

Re : de feuille en feuille

Bonsoir,
Un essai avec recherchev, à moins que le problème ne soit plus compliqué
Possibilité d'ajouter des conditions pour éviter d'avoir les #N/A

Salutations
Minipuce

 

[JNP]

Re : de feuille en feuille

Test si enregistrement du message