Discussion :

[aalex85]

Avec le fichier joint c'est mieux...

Bonjour à tous,

Suivant fichier joint, je souhaiterais que si la valeur "/" est entrée dans une certaine cellule, les valeurs contenues dans plusieurs autres cellules soient automatiquement supprimées

Merci pour votre aide

Cordialement
aalex85

[(WOLF)]

Bonsoir, ceci peut faire l'affaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub mise_en_forme()
    Dim dl As Long, i As Long
    dl = ActiveWorkbook.Sheets("feuil1").Range("a" & Rows.Count).End(xlUp).Row
    i = 4
    While ActiveWorkbook.Sheets("feuil1").Range("a" & i) <> ""
        If ActiveWorkbook.Sheets("feuil1").Range("i" & i) = "/" Then
            ActiveWorkbook.Sheets("feuil1").Range("a" & i & ":e" & i).ClearContents
        End If
        i = i + 1
    Wend
End Sub

[aalex85]

Bonsoir Wolf,


J'ai copié le code dans le feuil1 du projet VBA, mais il n'y a pas d'action sur ma feuille Excel.

Mais compétences étant très limitées peux-tu me préciser comment et ou je dois copier ton Code

En tous cas merci pour ta réponse

aalex85

[(WOLF)]

Téléchargez le fichier que je vous ai joins.

A chaque fois que la colonne i sera modifiée la macro se lancera automatiquement

[aalex85]

Cela fonctionne parfaitement sur la première ligne (plage A4 à E4), mais pas sur les lignes du dessous

aalex85

[(WOLF)]

Étrange, cela fonctionne parfaitement pour ma part.

[aalex85]

je viens de tester à nouveau et cela ne fonctionne toujours pas

je vous joins votre fichier sauvegardé avant sur mon PC, au cas ou...

[(WOLF)]

Oups, c'est de ma faute. ci joins une version corrigé qui va être un peu plus fonctionnelle. la macro repère la dernière ligne non vide de la colonne i et stock le numéro de la ligne dans une variable. Ensuite elle lit chaque cellule de la colonne I jusqu'à cette dernière ligne et si elle trouve "/" dans une cellule, elle efface les cases de A à E.

[aalex85]

Merci Wolf,
C'est exactement cela que je voulais
Merci également pour les explications que vous avez ajoutées à votre dernier message
Cordialement
aalex85

[(WOLF)]

Merci à vous d'avoir été patient car j'ai du m'y reprendre à plusieurs fois