Comment coder ça

Résolu
Nonno48 Messages postés 67 Statut Membre -  
Nonno48 Messages postés 67 Statut Membre -
Bonjour
Je souhaiterais coder :
Si dans colonne "D" une cellule contient "F" alors le contenu la cellule contiguë de la colonne "C" est effacé?
Merci
Nonno48

4 réponses

pijaku Messages postés 13513 Statut Modérateur 2 763
 
2 choix. Codes à placer dans le module de la feuille concernée. clic droit sur l'onglet de cette feuille / visualiser le code.
"oneshot" :
Private Sub CommandButton1_Click()
Dim i As Integer
    With Worksheets("Feuil1")   'ADAPTER le nom de la feuille
        For i = 45 To 5000  'boucle sur les cellules D45:D5000 ADAPTER le 45 et le 5000 de la boucle
            If .Range("D" & i).Value = "F" Then .Range("C" & i).ClearContents
        Next
    End With
End Sub


Ou alors, au fur et à mesure de la saisie :
 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, Range("D45:D5000")) Is Nothing Then
            If Target.Value = "F" Then Target.Offset(, -1).ClearContents
        End If
    End If
End Sub

1
Nonno48 Messages postés 67 Statut Membre
 
Merci Pijaku
Je vais essayer ça
Nonno
0
Nonno48 Messages postés 67 Statut Membre
 
C'est Bon! je te remercie
j'ai choisis ta première proposition
Crdlt
Nonno48
0
Utilisateur anonyme
 
Bonjour,

A priori, il faut passer par un script en VBA qu'on déclenchera sur l'appui d'une touche ou d'un bouton. C'est ce que vous voulez ? Pouvez-vous préciser d'avantage ?
0
Nonno48 Messages postés 67 Statut Membre
 
Bonjour
oui c'est ce que je voudrais , une macro déclenchée par un bouton.
Merci
Nonno48
0
eriiic Messages postés 25847 Statut Contributeur 7 279
 
Bonjour,

contiguë à gauche ? à droite ? au-dessus ?
Que contient-elle ? Formule ou saisie ?
eric
0
Nonno48 Messages postés 67 Statut Membre
 
Ma demande est :Si dans colonne "D" une cellule contient "F", alors le contenu de la cellule contiguë de la colonne "C" est effacé.
Donc colonne "C" (à gauche).
les cellules ne contiennent que des saisies
Nonno
0
pijaku Messages postés 13513 Statut Modérateur 2 763
 
Bonjour,

Salut Eriiic,

Faut il effacer la cellule en C si D contient :
> EFFRAYER
> F
> f
> faute
???
0
Nonno48 Messages postés 67 Statut Membre
 
Bonjour
Effacer Si cellule contient "F"
0