Suppression du contenu d'une cellule en fonction d'autres cellules

Bonjour à tous

J'espère que vous allez bien.

Alors voila j'ai un petit problème en effet dans mon document j'ai trois colonnes : J, K et L.

J'aimerai un code VBA qui permettrait d'effacer le contenu des cellules L pour lesquelles il y a une écriture dans les cellules J ou K.

Par exemple dans le doc Excel ci-joint, dans la ligne 2 les cellules J2 et L2 sont remplies. Il faudrait donc garder J2 et effacer le contenue de la cellule L2.

Par avance merci beaucoup

Roijio.

Salut Roijio,

Voici ce que j'ai fait, dis moi si ça te convient.

zapsalis,

Bonjour @Zapsalis,

Merci de la réponse

C'est exactement ce que je voulais mais le problème étant que j'ai plusieurs feuille (portant des noms différents) où je dois effectuer cette matrice.

Cela ne me dérange pas de le faire une à une en lançant la macro sur chacune d'entres elles, mais la ne marche pas désolé j'imagine que c'est un rien à changer mais je n'y connais pas grand chose…

Merci d'avance,

Roijio.

Bonsoir Roijio, Zapsalis, le forum,

C'est exactement ce que je voulais mais le problème étant que j'ai plusieurs feuille (portant des noms différents) où je dois effectuer cette matrice.

Un truc du genre...

Sub Bouton1_Cliquer()
 Dim F As Worksheet, c As Range, lastLigne As Integer

    Application.ScreenUpdating = False

      For Each F In ThisWorkbook.Worksheets
        Select Case F.Name
            Case "Feuil2", "Feuil4", "Feuil6"  '...nom des feuilles à exclure
            Case Else
             lastLigne = F.UsedRange.Rows.Count
              For Each c In F.Range("L2:L" & lastLigne)
               If c.Offset(0, -1) <> "" Or c.Offset(0, -2) <> "" Then
                c.ClearContents
               End If
              Next c
        End Select
      Next F
End Sub

Cordialement,

Bonjour Zapsalis, xorsankukai,

Ma consigne à finalement changée...

J'ai toujours trois colonne : J,K et L

Mais il faut que lorsque J contient une valeur, il n'y ai rien dans K et L.

Mais aussi que si K contient une valeur il n'y ai rien dans L.

Donc :

Si il y a un caractère dans J et bien le contenu de K et L doit être effacé.

Si il y a pas de caractère dans J mais dans K et bien L doit être effacé.

Si il y a pas de caractère dans J et K et bien L doit rester tels quel.

J'espère ne pas avoir été trop brouillon dans mes explications;

Par avance merci beaucoup,

Roijio.

Bonjour Roijio, Zapsalis, le forum,

A tester:

Option Explicit

Private Sub CommandButton1_Click()
 Dim c As Range
 Dim lastLigne As Integer, i%

 With Sheets("Feuil1")
  lastLigne = .UsedRange.Rows.Count
   For i = 2 To lastLigne
    If .Range("J" & i) <> "" Then .Range("K" & i & ":L" & i).ClearContents
    If .Range("J" & i) = "" And .Range("K" & i) <> "" Then .Range("L" & i).ClearContents
   Next i
 End With
End Sub

Cordialement,

@xorsankukai merci infiniment pour ce que vous avez fait pour moi, ça marche du tonerre !!!

Je vous souhaite à tous une excellente journée,

Bien à vous,

Roijio.