Discussion :

[sga7405]

Bonjour,

Dans la feuille passeport professionnel du fichier joint, je souhaite que les dernières valeurs des colonnes A à H se recopient sur les lignes suivantes tant que la colonne I est vide.
J'ai essayé mais je bug, vu mon faible niveau excel.
Voir Macro_2.
Merci de votre aide et de m'accorder un peu de votre temps.

Stéphanie

[unparia]

Bonjour

Voir Macro_2.

Voir ceci et ma signature
https://www.developpez.net/forums/d8...s-discussions/

[sga7405]

Désolée, je suis nouvelle venue. Merci de votre patience.

Donc sur une feuille excel, j'ai des colonnes de A à M.

A partir de la colonne I, il peut y avoir plusieurs lignes de cellules remplies, alors que les colonnes précédentes ne comprennent qu'une valeur possible, donc la 1ère ligne.
Exemple :
colonne A (date)
27/09/2018
colonne I (savoirs associés)
-Savoir 1
-Savoir 2

Je souhaite donc que les valeurs des colonnes A à H se recopie dans les lignes suivantes tant que la colonne I est non vide.

J'ai essayé ceci, mais je sais que j'ai au moins un pb de variable, voire plus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro2()
'
' Macro2 Macro
'
   Dim i%, d As Range
   Dim Ligne As Range
    Set d = Workbooks("Macro2passeport professionnel ndrc.xlsm").Worksheets("passeport professionnel")
    Set Ligne = Range("A:H" & Rows.Count).End(xlUp)
    Ligne.Select
    With ThisWorkbook.Worksheets("passeport professionnel")
        i = .Range("I" & .Rows.Count).End(xlUp).Row
        Do While .Range("I" & i + 1) <> ""
            i = i + 1
            .Range("A:H" & i) = d.Value
        Loop
    End With
 
End Sub

Merci de votre aide

[patricktoulon]

Bonjour,

Dans la feuille passeport professionnel du fichier joint, je souhaite que les dernières valeurs des colonnes A à H se recopient sur les lignes suivantes tant que la colonne I est vide.
J'ai essayé mais je bug, vu mon faible niveau excel.
Voir Macro_2.
Merci de votre aide et de m'accorder un peu de votre temps.

Stéphanie

Bonjour
Au regard de ton classeur ta demande n'est pas claire car en l'etat copier A:H tant que i est vide correspondrait a rien faire OU!! remplir A:H sur tout le sheets en entier a partir de la ligne 4
donc selon moi ta question est mal formulée
je soupconne que justement ton souhait soit le contraire

[sga7405]

Bonjour,

Effectivement, je souhaite copier tant que I est complété et que la boucle s'arrête quant I est vide.

Désolée

[patricktoulon]

re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
    Dim cel As Range
        With Sheets("passeport professionnel")
        For Each cel In .Range("I4", .Cells(Rows.Count, "I").End(xlUp))
             If Not IsEmpty(cel) And IsEmpty(cel.Offset(0, -8)) Then cel.Offset(0, -8).Resize(1, 8) = .Range("A4:H4").Value
        Next
    End With
End Sub

[sga7405]

Merci beaucoup, c'est génial.
ça pouvait être si propre.... j'étais vraiment mal partie.
Je danse la gigue là !!!!!

Encore merci

[sga7405]

bonjour,

Dans la macro de l'autre jour, il reste un problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub copier_coller_boucle()
Dim cel As Range
With Sheets("passeport professionnel")
For Each cel In .Range("I4", .Cells(Rows.Count, "I").End(xlUp))
If Not IsEmpty(cel) And IsEmpty(cel.Offset(0, -8)) Then cel.Offset(0, -8).Resize(1, 8) = .Range("A4:H4").Value
 
Next
End With
End Sub

J'obtiens ceci : La macro copie uniquement les valeurs A4:H4 au lieu de copier les valeurs de la dernière ligne vide des colonnes A:H. Du coup, ça recopie toujours la 1ère fiche de situation et non les suivantes qui se créent.

Je joins une image du fichier.

Pouvez-vous m'aider à nouveau

Cordialement