Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Do while

Do while

2 réponses
Avatar
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.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
Bonsoir.
Si j'ai bien compris :
Range("Impr!A" & lign).Value = Cells(lignestimé, x).Value
Cordialement.
Daniel
"Pépère" a écrit dans le message de news:

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.



Avatar
Pépère
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