Discussion :

[Beehappy]

Bonjour les développeurs,
Je suis trèèès débutante en VBA et Je voudrais développer un petit code qui va me permettre de supprimer le contenu de 2 cellules conditionnellement.
Je m'explique alors j'ai 3 cellules A1, B1, C1 . Je voudrais que si dans A1 je tape "XX" b1 et c1 se vident automatiquement, et ce pour plusieurs lignes, par exemple de de la ligne 1 à la ligne 100.
Merci !!

[mfoxy]

Bonsoir,

Votre demande est réalisable en utilisant l'évènement worksheet_change, on intercepte si changement sur une cellule en colonne A = Xxx , on "vide" les cellules B et C de la ligne correspondante.

Mais, est-il vraiment nécessaire de développer un code pour effectuer cette tâche ? Au lieu de simplement utiliser son clavier et sa souris ?

Bav,

[BENNASR]

Bonjour

Je suis trèèès débutante en VBA

Si vous voulez qu'au moment de saisie en colonne "A" et si la valeur est "XX" ou "xx" dans ce cas l’événement Worksheet_Change
Onglet develppeur / double clic sur la feuille approprié et mettre ça :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Count > 1 Then Exit Sub 
        If Not Intersect(Target, Columns("A:C")) Is Nothing Then
            If Target = UCase("xx") Or Target = LCase("XX") Then Range("B" & Target.Row & ":C" & Target.Row).ClearContents
        End If
End Sub

mais si vous avez déjà une base de donnée et vous voulez supprimer le contenue de la cellule équivalente en colonne B et en colonne C donc vous insérez une bouton de commande liée au code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Sub test()
Dim F As Worksheet
Dim i As Long
Dim L As Integer
Set F = Sheets("Feuil1") ' définir le nom de l'onglet
i = F.Cells(Rows.Count, 1).End(xlUp).Row ' permet de détecter la dernière ligne non vide de la colonne A
For L = 2 To i 'à partir de la cellule n°2 jusqu'a la dernière ligne non vide 
If F.Cells(L, 1) = UCase("xx") Or F.Cells(L, 1) = LCase("XX") Then F.Range(Cells(L, 2), Cells(L, 3)).ClearContents 'si la valeur de le cellule est xx alors effacer le contenue de la cellule en B et en C
Next L ' Ligne suivante
End Sub

et si vous avez une grande base de donnée il est recommandé pour gagner en temps d'exécution de faire un filtre sur la colonne A et effacer les données :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Sub testtt()
Dim F As Worksheet
Dim i As Long
Dim L As Integer
Application.ScreenUpdating = False
Set F = Sheets("Feuil1")
i = F.Cells(Rows.Count, 1).End(xlUp).Row
    F.Range("A1:C" & i).AutoFilter Field:=1, Criteria1:="XX"
   F.Range("B2", Cells(Rows.Count, "C").End(xlUp)).SpecialCells(xlCellTypeVisible).ClearContents
F.ShowAllData
Application.ScreenUpdating = True
End Sub

[Beehappy]

Super, problème résoluu !!
Merciiiii