Excel supprimer une ligne

Fermé

manoelinho Messages postés 43 Date d'inscription jeudi 7 mai 2009 Statut Membre Dernière intervention 5 mars 2012 - 11 mai 2009 à 16:38
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 12 mai 2009 à 08:32

Bonjour,

Est ce que c'est possible de mettre dans la macro une condition supplémentaire?
par exemple j'aimerai que la ligne 23 soit effacée si le contenue de la cellule A1 est "FAUX" mais seulement si le contenue de la cellule A23 est "FAUX"

merci d'avance

A voir également:

2 réponses

Réponse 1 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
11 mai 2009 à 16:43

Salut,
Bien sur.
If condition 1 then
If condition2 then
supprimer la ligne
end if
end if

Réponse 2 / 2

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 308
11 mai 2009 à 16:50

JE croyais avoir mis du code tout à l'heure, mais j'ai du me planter copieusement ^^

Voici le code qui doit correspondre à ce que tu attends :

Sub suppression()
   If Range("A1").Value = "FAUX" Then
      If Range("A23").Value = "FAUX" Then
         Rows("23:23").Select
         Selection.Delete shift=xlUp
      End If
   End If
End Sub

Voilà normalement ça devrait te dépanner.

manoelinho Messages postés 43 Date d'inscription jeudi 7 mai 2009 Statut Membre Dernière intervention 5 mars 2012
11 mai 2009 à 16:56

ouai mais dans le cas ou la ligne a supprimer ne se trouve pas sur la meme feuille et par exemple sur la feuille 3? est ce que je doit noter avant

sheet(""feuil3").activate
range("A23").select

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751 > manoelinho Messages postés 43 Date d'inscription jeudi 7 mai 2009 Statut Membre Dernière intervention 5 mars 2012
12 mai 2009 à 08:32

Bonjour,
Effectivement. Ou alors :
Sheets("Feuil3").Range("A23").Select

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?