Bonjour j'aurais besoins de vos connaissance

[pitchoooo]

Alors voila je souhaiterais faire une macro qui correspond à l'algo suivant :

Algo
i , entier
debut
i <-- 1
tant que G i <> "" faire (G etant la lettre de la colonne donc si i=1 , cellule G1)
si Gi="2" alors
select Ri à Ti
supprimer la selection et decaler a gauche
sinon
si Gi="4" alors
select Ri à AAi
supprimer la selection et decaler a gauche
fin si
fin si
i<-- i+1
fin tant que
fin

Voila jespere que vous comprenez mon algo
Merci d'avance

 

[Catrice]

Re : Bonjour j'aurais besoins de vos connaissance

Bonjour,

Je propose ce code :
Sub Test()
For Each X In Range("G1:" & Range("G65536").End(xlUp).Address)
Select Case X
Case 2
X.Offset(0, 11).Resize(1, 3).Delete Shift:=xlToLeft
Case 4
X.Offset(0, 11).Resize(1, 10).Delete Shift:=xlToLeft
End Select
Next
End Sub

Voir fichier joint.

 

[tototiti2008]

Re : Bonjour j'aurais besoins de vos connaissance

Bonjour Pitchoo, Bonjour Catrice,

une traduction plutôt fidèle :

Sub Algo()
Dim i As Long
    i = 1
        Do While ActiveSheet.Range("G" & i).Value <> ""
            If ActiveSheet.Range("G" & i).Value = "2" Then
                ActiveSheet.Range("R" & i & ":T" & i).Delete shift:=xlToLeft
            ElseIf ActiveSheet.Range("G" & i).Value = "4" Then
                ActiveSheet.Range("R" & i & ":AA" & i).Delete shift:=xlToLeft
            End If
        i = i + 1
        Loop
End Sub

 

[pitchoooo]

Re : Bonjour j'aurais besoins de vos connaissance

Merci sa fonctionne nikel
Merci beaucoup A+