TOTAL Blabla Blabla Blabla TOTAL Bli Blabla
49 36 13 13 13
69 52 17 17 17
62 40 22 22 22
Je cherche =E0 effacer la cellule contenant le mot "total" ainsi que les
donn=E9es qui se trouvent en dessous, sans toutefois supprimer toute la
colonne. Je voudrais ensuite combler l'espace laiss=E9 vide par cet
effacement en d=E9calant les donn=E9es situ=E9es =E0 droite (couper/coller).
En bref, je dois faire dispara=EEtre les sous-totaux, en sachant qu'il
ne se situent pas tous dans la m=EAme colonne.
Voici le code que j'ai con=E7u, mais qui ne marche pas vraiment :
Range("B1").Select
For Each c In Range("B1:K300")
If InStr(c.Value, "TOTAL") <> 0 Then
Range(Selection, Selection.End(xlDown)).ClearContents
ActiveCell.Offset(, 1).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
ActiveCell.Offset(, -1).Select
ActiveSheet.Paste
ActiveCell.Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
End If
Next
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
Daniel
Bonjour. Essaie :
Sub test() Set c = ActiveSheet.UsedRange.Find("TOTAL", , , xlWhole) Do While Not c Is Nothing Range(c, c.End(xlDown)).Delete xlShiftToLeft Set c = ActiveSheet.UsedRange.Find("TOTAL", , , xlWhole) Loop End Sub
Cordialement. Daniel "Richard G." a écrit dans le message de news:
Bonjour,
J'ai une feuille avec des données réparties de la façon suivante :
TOTAL Blabla Blabla Blabla TOTAL Bli Blabla 49 36 13 13 13 69 52 17 17 17 62 40 22 22 22
Je cherche à effacer la cellule contenant le mot "total" ainsi que les données qui se trouvent en dessous, sans toutefois supprimer toute la colonne. Je voudrais ensuite combler l'espace laissé vide par cet effacement en décalant les données situées à droite (couper/coller). En bref, je dois faire disparaître les sous-totaux, en sachant qu'il ne se situent pas tous dans la même colonne.
Voici le code que j'ai conçu, mais qui ne marche pas vraiment :
Range("B1").Select For Each c In Range("B1:K300") If InStr(c.Value, "TOTAL") <> 0 Then Range(Selection, Selection.End(xlDown)).ClearContents ActiveCell.Offset(, 1).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut ActiveCell.Offset(, -1).Select ActiveSheet.Paste ActiveCell.Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select End If Next
Merci par avance pour vos lumières !
A bientôt,
Bonjour.
Essaie :
Sub test()
Set c = ActiveSheet.UsedRange.Find("TOTAL", , , xlWhole)
Do While Not c Is Nothing
Range(c, c.End(xlDown)).Delete xlShiftToLeft
Set c = ActiveSheet.UsedRange.Find("TOTAL", , , xlWhole)
Loop
End Sub
Cordialement.
Daniel
"Richard G." <sylvainpellletier@gmail.com> a écrit dans le message de news:
1172826572.550158.60590@p10g2000cwp.googlegroups.com...
Bonjour,
J'ai une feuille avec des données réparties de la façon suivante :
TOTAL Blabla Blabla Blabla TOTAL Bli Blabla
49 36 13 13 13
69 52 17 17 17
62 40 22 22 22
Je cherche à effacer la cellule contenant le mot "total" ainsi que les
données qui se trouvent en dessous, sans toutefois supprimer toute la
colonne. Je voudrais ensuite combler l'espace laissé vide par cet
effacement en décalant les données situées à droite (couper/coller).
En bref, je dois faire disparaître les sous-totaux, en sachant qu'il
ne se situent pas tous dans la même colonne.
Voici le code que j'ai conçu, mais qui ne marche pas vraiment :
Range("B1").Select
For Each c In Range("B1:K300")
If InStr(c.Value, "TOTAL") <> 0 Then
Range(Selection, Selection.End(xlDown)).ClearContents
ActiveCell.Offset(, 1).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
ActiveCell.Offset(, -1).Select
ActiveSheet.Paste
ActiveCell.Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
End If
Next
Sub test() Set c = ActiveSheet.UsedRange.Find("TOTAL", , , xlWhole) Do While Not c Is Nothing Range(c, c.End(xlDown)).Delete xlShiftToLeft Set c = ActiveSheet.UsedRange.Find("TOTAL", , , xlWhole) Loop End Sub
Cordialement. Daniel "Richard G." a écrit dans le message de news:
Bonjour,
J'ai une feuille avec des données réparties de la façon suivante :
TOTAL Blabla Blabla Blabla TOTAL Bli Blabla 49 36 13 13 13 69 52 17 17 17 62 40 22 22 22
Je cherche à effacer la cellule contenant le mot "total" ainsi que les données qui se trouvent en dessous, sans toutefois supprimer toute la colonne. Je voudrais ensuite combler l'espace laissé vide par cet effacement en décalant les données situées à droite (couper/coller). En bref, je dois faire disparaître les sous-totaux, en sachant qu'il ne se situent pas tous dans la même colonne.
Voici le code que j'ai conçu, mais qui ne marche pas vraiment :
Range("B1").Select For Each c In Range("B1:K300") If InStr(c.Value, "TOTAL") <> 0 Then Range(Selection, Selection.End(xlDown)).ClearContents ActiveCell.Offset(, 1).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut ActiveCell.Offset(, -1).Select ActiveSheet.Paste ActiveCell.Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select End If Next
Merci par avance pour vos lumières !
A bientôt,
AH60
Bonjour
Sub EffaceCol() Dim Col As Integer With Worksheets("Feuil1") Col = Application.Match("TOTAL", Rows(1), 0) .Columns(Col).ClearContents .Columns(Col + 1).Copy .Columns(Col) End With End Sub
Abed_H
Bonjour,
J'ai une feuille avec des données réparties de la façon suivante :
TOTAL Blabla Blabla Blabla TOTAL Bli Blabla 49 36 13 13 13 69 52 17 17 17 62 40 22 22 22
Je cherche à effacer la cellule contenant le mot "total" ainsi que les données qui se trouvent en dessous, sans toutefois supprimer toute la colonne. Je voudrais ensuite combler l'espace laissé vide par cet effacement en décalant les données situées à droite (couper/coller). En bref, je dois faire disparaître les sous-totaux, en sachant qu'il ne se situent pas tous dans la même colonne.
Voici le code que j'ai conçu, mais qui ne marche pas vraiment :
Range("B1").Select For Each c In Range("B1:K300") If InStr(c.Value, "TOTAL") <> 0 Then Range(Selection, Selection.End(xlDown)).ClearContents ActiveCell.Offset(, 1).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut ActiveCell.Offset(, -1).Select ActiveSheet.Paste ActiveCell.Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select End If Next
Merci par avance pour vos lumières !
A bientôt,
Bonjour
Sub EffaceCol()
Dim Col As Integer
With Worksheets("Feuil1")
Col = Application.Match("TOTAL", Rows(1), 0)
.Columns(Col).ClearContents
.Columns(Col + 1).Copy .Columns(Col)
End With
End Sub
Abed_H
Bonjour,
J'ai une feuille avec des données réparties de la façon suivante :
TOTAL Blabla Blabla Blabla TOTAL Bli Blabla
49 36 13 13 13
69 52 17 17 17
62 40 22 22 22
Je cherche à effacer la cellule contenant le mot "total" ainsi que les
données qui se trouvent en dessous, sans toutefois supprimer toute la
colonne. Je voudrais ensuite combler l'espace laissé vide par cet
effacement en décalant les données situées à droite (couper/coller).
En bref, je dois faire disparaître les sous-totaux, en sachant qu'il
ne se situent pas tous dans la même colonne.
Voici le code que j'ai conçu, mais qui ne marche pas vraiment :
Range("B1").Select
For Each c In Range("B1:K300")
If InStr(c.Value, "TOTAL") <> 0 Then
Range(Selection, Selection.End(xlDown)).ClearContents
ActiveCell.Offset(, 1).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
ActiveCell.Offset(, -1).Select
ActiveSheet.Paste
ActiveCell.Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
End If
Next
Sub EffaceCol() Dim Col As Integer With Worksheets("Feuil1") Col = Application.Match("TOTAL", Rows(1), 0) .Columns(Col).ClearContents .Columns(Col + 1).Copy .Columns(Col) End With End Sub
Abed_H
Bonjour,
J'ai une feuille avec des données réparties de la façon suivante :
TOTAL Blabla Blabla Blabla TOTAL Bli Blabla 49 36 13 13 13 69 52 17 17 17 62 40 22 22 22
Je cherche à effacer la cellule contenant le mot "total" ainsi que les données qui se trouvent en dessous, sans toutefois supprimer toute la colonne. Je voudrais ensuite combler l'espace laissé vide par cet effacement en décalant les données situées à droite (couper/coller). En bref, je dois faire disparaître les sous-totaux, en sachant qu'il ne se situent pas tous dans la même colonne.
Voici le code que j'ai conçu, mais qui ne marche pas vraiment :
Range("B1").Select For Each c In Range("B1:K300") If InStr(c.Value, "TOTAL") <> 0 Then Range(Selection, Selection.End(xlDown)).ClearContents ActiveCell.Offset(, 1).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut ActiveCell.Offset(, -1).Select ActiveSheet.Paste ActiveCell.Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select End If Next