Bonjour,
J'ai une colonne b comme suit (Les chiffres représentent les numéros des lignes):
4 USINE 1
5 usine
6 usine
7 usine
8
9 USINE 2
10 usine
11 usine
12
J'aimerai que sous chaque cellule écrite en gras, copier le contenu de cette cellule et la coller dans les cellules se trouvant en dessous, le résultat serait donc:
4 USINE 1
5 USINE 1
6 USINE 1
7 USINE 1
8
9 USINE 2
10 USINE 2
11 USINE 2
12
Ci-joint le fichier.
J'ai essayer la macro suivante mais elle ne fonctionne pas:
Sub recopier()
Dim Lig As Long
Dim derlig As Long
Dim ligcopie As Long
ligcopie = 5
derlig = Range("b439").End(xlUp).Row
For Lig = 4 To derlig
If Cells(Lig, 2) <> " " Then
Cells(Lig, 2).Select
Selection.Copy
Cells(ligcopie, 2).Select
ActiveSheet.Paste
End If
ligcopie = licopie + 1
Next Lig
Merci.
J'ai une colonne b comme suit (Les chiffres représentent les numéros des lignes):
4 USINE 1
5 usine
6 usine
7 usine
8
9 USINE 2
10 usine
11 usine
12
J'aimerai que sous chaque cellule écrite en gras, copier le contenu de cette cellule et la coller dans les cellules se trouvant en dessous, le résultat serait donc:
4 USINE 1
5 USINE 1
6 USINE 1
7 USINE 1
8
9 USINE 2
10 USINE 2
11 USINE 2
12
Ci-joint le fichier.
J'ai essayer la macro suivante mais elle ne fonctionne pas:
Sub recopier()
Dim Lig As Long
Dim derlig As Long
Dim ligcopie As Long
ligcopie = 5
derlig = Range("b439").End(xlUp).Row
For Lig = 4 To derlig
If Cells(Lig, 2) <> " " Then
Cells(Lig, 2).Select
Selection.Copy
Cells(ligcopie, 2).Select
ActiveSheet.Paste
End If
ligcopie = licopie + 1
Next Lig
Merci.