Macro pour copier automatiquement une matricule

anasimo

XLDnaute Occasionnel
Bonjour

cherche mac pour copier 1 matricule (j'ai déja testé la fonction IF, trop long)...j'explique

Dans la cellule D16 de la feuille "module" j'ai 1 matricule
je veux que cette matricule soit copiée dans la colonne B des feuilles BD1 BD2 et BD3 à chaque qu'il y a des données dans ces colonnes

feuilles BD1 BD2 et BD3
Capture29.JPG
 

Pièces jointes

  • copier code.xlsx
    17.9 KB · Affichages: 14

xUpsilon

XLDnaute Accro
Bonjour

VB:
Dim i as integer
i = 2

Do While Range("BD1!D" & i) <> ""
    Range("BD1!B & i") = Range("Module!D16")
    Range("BD2!B & i") = Range("Module!D16")
    Range("BD3!B & i") = Range("Module!D16")
    i = i +1
Loop

Est-ce que c'est cela que tu veux ?

Bonne continuation
 

anasimo

XLDnaute Occasionnel
Bonjour

VB:
Dim i as integer
i = 2

Do While Range("BD1!D" & i) <> ""
    Range("BD1!B & i") = Range("Module!D16")
    Range("BD2!B & i") = Range("Module!D16")
    Range("BD3!B & i") = Range("Module!D16")
    i = i +1
Loop

Est-ce que c'est cela que tu veux ?

Bonne continuation

bizarre marche pas....
juste une chose le code doit être copié une fois y a donnée dans la colonne D de chaque feuille (bd1,2 et3).
exemple: s'il y a données dans colonne D des feuilles BD1 et BD2 le code va être générer uniquement dans ces feuilles (pas BD3)...etc
 

xUpsilon

XLDnaute Accro
Mmh, il y avait un problème d'activation de la feuille avant de pouvoir l'atteindre et l'utiliser visiblement. Du coup le coup fonctionnait (ou pas) en fonction de la feuille sur laquelle on était positionné.
Regarde avec le document ci-joint.

Bonne continuation
 

Pièces jointes

  • copier code.xlsm
    29 KB · Affichages: 7

xUpsilon

XLDnaute Accro
Ah donc ça dépend de chaque feuille séparément ? Je croyais que tu avais les mêmes données sur chaque feuille plus ou moins, que les tableaux faisaient la même taille, et du coup j'ai basé la taille de la copie du terme sur la taille du tableau présent sur la feuille BD1.
D'où l'importance d'une question bien posée ;)

Regarde ci-joint,
Bonne continuation
 

Pièces jointes

  • copier code.xlsm
    29.3 KB · Affichages: 6

Discussions similaires

Réponses
7
Affichages
154

Statistiques des forums

Discussions
311 705
Messages
2 081 724
Membres
101 804
dernier inscrit
chefTarik