decalé cellule sous condition

[man95]

bonsoir à vous tous,

voici mon soucis

dans ma colonne A j'ai plusieurs données et de temps en temps cellule affichant:
Total
Total Orange
Total poire
Etc

j'aimerai decaler vers la droite de 6 cellules à chaque fois que la cellule en A commence par Total

J'espère avoir été assez clair et vous remercie par avance

Man

 

[Robert]

Re : decalé cellule sous condition

Bonsoir Man, bonsoir le forum,

Une proposition VBA avec la macro ci-desous :

Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
'boucle sur toutes les cellules éditée cel de la colonne A
For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
    'condition : si les 5 premiers caractères de la valeur de
    'la cellules (convertis en majuscule) = "TOTAL"
    If UCase(Left(cel.Value, 5)) = "TOTAL" Then
        cel.Offset(0, 6).Value = cel.Value 'place la valeur de la cellule dans la colonne G
        cel.Value = "" 'supprime la valeur de la cellule
    End If 'fin de la condition
Next cel 'prochaine cellule cel de la boucle
End Sub

 

[Habitude]

Re : decalé cellule sous condition

A tester

Sub test()
For i = 1 To Range("A65536").End(xlUp).Row
    If Left(Cells(i, 1), Len("Total")) = "Total" Then
        Cells(i, 7) = Cells(i, 1)
        Cells(i, 1) = ""
    End If
Next i
End Sub

 

[man95]

Re : decalé cellule sous condition

bonsoir Robert, Habitude,

Je vous remercie de vos réponses super rapide

je viens de les tester et j'ai un petit soucis (je pense que j'ai du mal m'expliquer)
vos macros fonctionnent mais cela deplace la cellule A(contenant Total) à la cellule G
Alors que je souhaite decalé car j'ai des données en B C D

Merci

Man

 

[Habitude]

Re : decalé cellule sous condition

Toujours A tester

Sub test()
For i = 1 To Range("A65536").End(xlUp).Row
    If Left(Cells(i, 1), Len("Total")) = "Total" Then _
        For j = 1 To 6: Cells(i, 1).Insert Shift:=xlToRight: Next
Next i
End Sub

 

[man95]

Re : decalé cellule sous condition

Bonjour Habitude, le forum

Je viens de tester et c'est exactement ce que je voulais

Merci beaucoup

Man