Do while

Le
Pépère
Bonjour la communauté
En VBA
Comment procéder afin que la variable x soit reconnu.
J'ai des données sur la même ligne qui peuvent se rendre jusqu'à AB, sur ma
feuille Estimé.
La variable x correspond bien à la colone E soit 5.

Sheets("Estimé").Activate

Range("Estimé!E" & lignestimé).Select
x = ActiveCell.Column

Do While ActiveCell <> ""

Range("Impr!A" & lign).Value = Range("Estimé!????" & lignestimé).Value
Range("Impr!A" & lign).Value = Range("Estimé!E" & lignestimé).Value
Range("Impr!C" & lign).Value = Range("Estimé!F" & lignestimé).Value
Range("Impr!F" & lign).Value = Range("Estimé!G" & lignestimé).Value
lign = lign + 1
x = x + 1

Loop

Merci de l'attention que vous perterz à la présente.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5096941
Bonsoir.
Si j'ai bien compris :
Range("Impr!A" & lign).Value = Cells(lignestimé, x).Value
Cordialement.
Daniel
"Pépère"
Bonjour la communauté
En VBA...
Comment procéder afin que la variable x soit reconnu.
J'ai des données sur la même ligne qui peuvent se rendre jusqu'à AB, sur
ma
feuille Estimé.
La variable x correspond bien à la colone E soit 5.

Sheets("Estimé").Activate

Range("Estimé!E" & lignestimé).Select
x = ActiveCell.Column

Do While ActiveCell <> ""

Range("Impr!A" & lign).Value = Range("Estimé!????" & lignestimé).Value
Range("Impr!A" & lign).Value = Range("Estimé!E" & lignestimé).Value
Range("Impr!C" & lign).Value = Range("Estimé!F" & lignestimé).Value
Range("Impr!F" & lign).Value = Range("Estimé!G" & lignestimé).Value
lign = lign + 1
x = x + 1

Loop

Merci de l'attention que vous perterz à la présente.



Pépère
Le #5096931
Merci Daniel.C

Je vais tester le tout demain après avoir pelleté la belle neige qui tombe
a+


Bonsoir.
Si j'ai bien compris :
Range("Impr!A" & lign).Value = Cells(lignestimé, x).Value
Cordialement.
Daniel


Publicité
Poster une réponse
Anonyme