Colonnes non contigues

[anber]

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]

Re : Colonnes non contigues

bonjour anber,

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

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

Set cellWrite = cellWrite.Offset(3, 0)

par

Set cellWrite = cellWrite.Offset(1, 0)

a+

 

[anber]

Re : Colonnes non contigues

Bonjour mromain

Exactement ce que je recherchais

Merci