Colonnes non contigues

anber · 23 Mars 2009

Bonjour le forum,

Je recherche comment transformer en code la récupération de valeurs d'une feuille dans une autre, les 3 premieres colonnes étant concatenées avec espace, les autres non contigues, par contre insertion dans l'autre feuille toutes les 3 lignes (celles-ci étant fusionnées).

J'espère avoir à peu près été clair

Merci

mromain · 23 Mars 2009

Re : Colonnes non contigues

bonjour anber,

voici un code à compléter ( la ligne rouge)

Code:

Sub copy()

Dim cellWrite As Range, cellRead As Range

Set cellRead = ThisWorkbook.Sheets("A").Range("A8")
Set cellWrite = ThisWorkbook.Sheets("B").Range("A7")

While cellRead.Value <> vbNullString
    cellWrite.Value = cellRead.Value & " " & cellRead.Offset(0, 1).Value & " " & cellRead.Offset(0, 2).Value
    cellWrite.Offset(0, 1).Value = cellRead.Offset(0, 6).Value
[COLOR="Red"][B]'    cellWrite.Offset(0, 2).Value = cellRead.Offset(0, ).value[/B][/COLOR]
    cellWrite.Offset(0, 3).Value = cellRead.Offset(0, 10).Value
    cellWrite.Offset(0, 4).Value = cellRead.Offset(0, 8).Value
    cellWrite.Offset(0, 5).Value = cellRead.Offset(0, 12).Value
    cellWrite.Offset(0, 6).Value = cellRead.Offset(0, 13).Value
    Set cellWrite = cellWrite.Offset(3, 0)
    Set cellRead = cellRead.Offset(1, 0)
Wend

End Sub

en effet, je ne vois pas d'ou tu récupère les infos de la colonne "Total res" de ta feuille B.

à propos de ta feuille B, je ne vois pas l'intérêt de fusionner les 3 lignes pour chaque résultat.
Si tu décide de ne pas fusionner les lignes, il faudra modifier

Code:

Set cellWrite = cellWrite.Offset(3, 0)

par

Code:

Set cellWrite = cellWrite.Offset(1, 0)

a+

anber · 23 Mars 2009

Re : Colonnes non contigues

Bonjour mromain

Exactement ce que je recherchais

Merci

Colonnes non contigues

anber

XLDnaute Occasionnel

Pièces jointes

mromain

XLDnaute Barbatruc

anber

XLDnaute Occasionnel

Discussions similaires

Colonnes non contigues

anber

XLDnaute Occasionnel

Pièces jointes

mromain

XLDnaute Barbatruc

anber

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency