Evidemment (ce serait trop simple !) le nombre de lignes =E0 mettre en
colonne n'est jamais le m=EAme, tout comme le nombre de colonne par
ligne est variable. Et je ne peux pas r=E9p=E9ter la cellule de la colonne
A=2E
J'ai =E9crit ce morceau de code :
For Each c In Range("A2:A2000")
If c.Value =3D c.Offset(1, 0).Value Then
c.Offset(1, 0).ClearContents
c.Offset(1, 1).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Cut
c.Select
Selection.End(xlToRight).Select
Selection.Offset(, 1).Select
ActiveSheet.Paste
Selection.Offset(1, 0).Select
Selection.EntireRow.Delete
End If
Next c
=E7a marche tr=E8s moyennement.
Merci par avance pour vos suggestions.
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
JLuc
*Bonjour Richard G.*, Essaie avec ce code :
x = 1 While Cells(x, 1) <> "" If Cells(x + 1, 1) = Cells(x, 1) Then For a = 2 to Cells(x + 1, 254).End(xlToLeft).Column Cells(x, Cells(x, 254).End(xlToLeft).column) = _ Cells(x + 1, a) Next Cells(x + 1).Entirerow.Delete Else x = x + 1 End If Wend
Pas testé, mais devrait marché !
Bonsoir à tous,
J'ai une feuille Excel contenant des données structurée de la façon suivante :
Evidemment (ce serait trop simple !) le nombre de lignes à mettre en colonne n'est jamais le même, tout comme le nombre de colonne par ligne est variable. Et je ne peux pas répéter la cellule de la colonne A.
J'ai écrit ce morceau de code :
For Each c In Range("A2:A2000") If c.Value = c.Offset(1, 0).Value Then c.Offset(1, 0).ClearContents c.Offset(1, 1).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Cut c.Select Selection.End(xlToRight).Select Selection.Offset(, 1).Select ActiveSheet.Paste Selection.Offset(1, 0).Select Selection.EntireRow.Delete End If Next c
ça marche très moyennement. Merci par avance pour vos suggestions.
A +
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour Richard G.*,
Essaie avec ce code :
x = 1
While Cells(x, 1) <> ""
If Cells(x + 1, 1) = Cells(x, 1) Then
For a = 2 to Cells(x + 1, 254).End(xlToLeft).Column
Cells(x, Cells(x, 254).End(xlToLeft).column) = _
Cells(x + 1, a)
Next
Cells(x + 1).Entirerow.Delete
Else
x = x + 1
End If
Wend
Pas testé, mais devrait marché !
Bonsoir à tous,
J'ai une feuille Excel contenant des données structurée de la façon
suivante :
Evidemment (ce serait trop simple !) le nombre de lignes à mettre en
colonne n'est jamais le même, tout comme le nombre de colonne par
ligne est variable. Et je ne peux pas répéter la cellule de la colonne
A.
J'ai écrit ce morceau de code :
For Each c In Range("A2:A2000")
If c.Value = c.Offset(1, 0).Value Then
c.Offset(1, 0).ClearContents
c.Offset(1, 1).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Cut
c.Select
Selection.End(xlToRight).Select
Selection.Offset(, 1).Select
ActiveSheet.Paste
Selection.Offset(1, 0).Select
Selection.EntireRow.Delete
End If
Next c
ça marche très moyennement.
Merci par avance pour vos suggestions.
x = 1 While Cells(x, 1) <> "" If Cells(x + 1, 1) = Cells(x, 1) Then For a = 2 to Cells(x + 1, 254).End(xlToLeft).Column Cells(x, Cells(x, 254).End(xlToLeft).column) = _ Cells(x + 1, a) Next Cells(x + 1).Entirerow.Delete Else x = x + 1 End If Wend
Pas testé, mais devrait marché !
Bonsoir à tous,
J'ai une feuille Excel contenant des données structurée de la façon suivante :
Evidemment (ce serait trop simple !) le nombre de lignes à mettre en colonne n'est jamais le même, tout comme le nombre de colonne par ligne est variable. Et je ne peux pas répéter la cellule de la colonne A.
J'ai écrit ce morceau de code :
For Each c In Range("A2:A2000") If c.Value = c.Offset(1, 0).Value Then c.Offset(1, 0).ClearContents c.Offset(1, 1).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Cut c.Select Selection.End(xlToRight).Select Selection.Offset(, 1).Select ActiveSheet.Paste Selection.Offset(1, 0).Select Selection.EntireRow.Delete End If Next c
ça marche très moyennement. Merci par avance pour vos suggestions.
A +
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
JLuc
Petite erreur :
For a = 2 to Cells(x + 1, 254).End(xlToLeft).Column Cells(x, Cells(x, 254).End(xlToLeft).column) = _ Cells(x, Cells(x, 254).End(xlToLeft).column + 1) = _
Cells(x + 1, a) Next
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Petite erreur :
For a = 2 to Cells(x + 1, 254).End(xlToLeft).Column
Cells(x, Cells(x, 254).End(xlToLeft).column) = _
Cells(x, Cells(x, 254).End(xlToLeft).column + 1) = _