Bonjour,
j'ai un fichier Excel dans lequel apparaissent en colonne E, les valeurs suivantes:
Dentaire
Santé
CGS
... et d'autres données.
Je souhaiterais faire rouler une macro, afin que lorsque la valeur de la cellule en colonne E est différente de "Dentaire", "Santé" ou "CGS", les cellules de la ligne, à partir de la colonne E se décalent vers la droite.
Exemple: Si valeur en E5 = x, alors E5,E6,E7,E8.... se décalent de +1 vers la droite.
J'avais un morceau de code, qui ne fonctionne pas:
Sub MoveRightColumnE()
Dim I As Integer
For I = [E65000].End(xlUp).Row To 1 Step -1
If Cells(I, 5).Find("SANTE") Is Nothing Or _
Cells(I, 5).Find("DENTAIRE") Is Nothing Or _
Cells(I, 5).Find("CGS") Is Nothing Then Rows(I).End(xlToRight).Column 1
Next I
End Sub
Pouvez-vous m'aider à l'améliorer afin que ma macro fonctionne.
Merci et bonne journée.
Laurent.
j'ai un fichier Excel dans lequel apparaissent en colonne E, les valeurs suivantes:
Dentaire
Santé
CGS
... et d'autres données.
Je souhaiterais faire rouler une macro, afin que lorsque la valeur de la cellule en colonne E est différente de "Dentaire", "Santé" ou "CGS", les cellules de la ligne, à partir de la colonne E se décalent vers la droite.
Exemple: Si valeur en E5 = x, alors E5,E6,E7,E8.... se décalent de +1 vers la droite.
J'avais un morceau de code, qui ne fonctionne pas:
Sub MoveRightColumnE()
Dim I As Integer
For I = [E65000].End(xlUp).Row To 1 Step -1
If Cells(I, 5).Find("SANTE") Is Nothing Or _
Cells(I, 5).Find("DENTAIRE") Is Nothing Or _
Cells(I, 5).Find("CGS") Is Nothing Then Rows(I).End(xlToRight).Column 1
Next I
End Sub
Pouvez-vous m'aider à l'améliorer afin que ma macro fonctionne.
Merci et bonne journée.
Laurent.
Dernière édition: