j'ai un problème concernant une macro, si vous pouviez m'aider
... SVP
je voudrais quand la case H4 n'est pa cochée (référence au client Dupond en
G4) que l'ordinateur recherche le nom du client (Dupond) dans la colonne A
et supprime la ligne correspondante. Et si la case H4 est cochée qu'il ne se
passe rien!
Mon idée était donc d'appliquer la fonction RechercheV combinée avec une
condition, mais je ne sai pa du tout comment utiliser cette fonction sous VBA
Excel
If Range ("B4") <>"x" Then
(fonction rechercheV)
Rows(":").DeleteShift=x1Up
End if
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Youky
Essai ceci, Private Sub CommandButton1_Click() If [H4] <> "" Then Exit Sub For ligne = 4 To [A65000].End(xlUp).Row If Cells(ligne, 1) = [G4] Then Rows(ligne).Delete Exit For End If Next End Sub
Youky
"esteban" a écrit dans le message de news:
Bonjour à tout le forum!!!
j'ai un problème concernant une macro, si vous pouviez m'aider ... SVP je voudrais quand la case H4 n'est pa cochée (référence au client Dupond en
G4) que l'ordinateur recherche le nom du client (Dupond) dans la colonne A
et supprime la ligne correspondante. Et si la case H4 est cochée qu'il ne se
passe rien! Mon idée était donc d'appliquer la fonction RechercheV combinée avec une condition, mais je ne sai pa du tout comment utiliser cette fonction sous VBA
Excel
If Range ("B4") <>"x" Then (fonction rechercheV) Rows(":").DeleteShift=x1Up End if
Merci beaucoup par avance!
Essai ceci,
Private Sub CommandButton1_Click()
If [H4] <> "" Then Exit Sub
For ligne = 4 To [A65000].End(xlUp).Row
If Cells(ligne, 1) = [G4] Then
Rows(ligne).Delete
Exit For
End If
Next
End Sub
Youky
"esteban" <esteban@discussions.microsoft.com> a écrit dans le message de
news: 08FC8B55-8BD5-4919-AAB5-6EF6B86A2C9D@microsoft.com...
Bonjour à tout le forum!!!
j'ai un problème concernant une macro, si vous pouviez m'aider
... SVP
je voudrais quand la case H4 n'est pa cochée (référence au client Dupond
en
G4) que l'ordinateur recherche le nom du client (Dupond) dans la colonne
A
et supprime la ligne correspondante. Et si la case H4 est cochée qu'il ne
se
passe rien!
Mon idée était donc d'appliquer la fonction RechercheV combinée avec une
condition, mais je ne sai pa du tout comment utiliser cette fonction sous
VBA
Excel
If Range ("B4") <>"x" Then
(fonction rechercheV)
Rows(":").DeleteShift=x1Up
End if
Essai ceci, Private Sub CommandButton1_Click() If [H4] <> "" Then Exit Sub For ligne = 4 To [A65000].End(xlUp).Row If Cells(ligne, 1) = [G4] Then Rows(ligne).Delete Exit For End If Next End Sub
Youky
"esteban" a écrit dans le message de news:
Bonjour à tout le forum!!!
j'ai un problème concernant une macro, si vous pouviez m'aider ... SVP je voudrais quand la case H4 n'est pa cochée (référence au client Dupond en
G4) que l'ordinateur recherche le nom du client (Dupond) dans la colonne A
et supprime la ligne correspondante. Et si la case H4 est cochée qu'il ne se
passe rien! Mon idée était donc d'appliquer la fonction RechercheV combinée avec une condition, mais je ne sai pa du tout comment utiliser cette fonction sous VBA
Excel
If Range ("B4") <>"x" Then (fonction rechercheV) Rows(":").DeleteShift=x1Up End if
Merci beaucoup par avance!
esteban
Merci beaucoup ta formule fonctionne tré bien!! Mais peut-t-on supprimer la même ligne dans toutes les feuilles??
Encore merci a toi
Essai ceci, Private Sub CommandButton1_Click() If [H4] <> "" Then Exit Sub For ligne = 4 To [A65000].End(xlUp).Row If Cells(ligne, 1) = [G4] Then Rows(ligne).Delete Exit For End If Next End Sub
Youky
"esteban" a écrit dans le message de news:
Bonjour à tout le forum!!!
j'ai un problème concernant une macro, si vous pouviez m'aider ... SVP je voudrais quand la case H4 n'est pa cochée (référence au client Dupond en
G4) que l'ordinateur recherche le nom du client (Dupond) dans la colonne A
et supprime la ligne correspondante. Et si la case H4 est cochée qu'il ne se
passe rien! Mon idée était donc d'appliquer la fonction RechercheV combinée avec une condition, mais je ne sai pa du tout comment utiliser cette fonction sous VBA
Excel
If Range ("B4") <>"x" Then (fonction rechercheV) Rows(":").DeleteShift=x1Up End if
Merci beaucoup par avance!
Merci beaucoup ta formule fonctionne tré bien!!
Mais peut-t-on supprimer la même ligne dans toutes les feuilles??
Encore merci a toi
Essai ceci,
Private Sub CommandButton1_Click()
If [H4] <> "" Then Exit Sub
For ligne = 4 To [A65000].End(xlUp).Row
If Cells(ligne, 1) = [G4] Then
Rows(ligne).Delete
Exit For
End If
Next
End Sub
Youky
"esteban" <esteban@discussions.microsoft.com> a écrit dans le message de
news: 08FC8B55-8BD5-4919-AAB5-6EF6B86A2C9D@microsoft.com...
Bonjour à tout le forum!!!
j'ai un problème concernant une macro, si vous pouviez m'aider
... SVP
je voudrais quand la case H4 n'est pa cochée (référence au client Dupond
en
G4) que l'ordinateur recherche le nom du client (Dupond) dans la colonne
A
et supprime la ligne correspondante. Et si la case H4 est cochée qu'il ne
se
passe rien!
Mon idée était donc d'appliquer la fonction RechercheV combinée avec une
condition, mais je ne sai pa du tout comment utiliser cette fonction sous
VBA
Excel
If Range ("B4") <>"x" Then
(fonction rechercheV)
Rows(":").DeleteShift=x1Up
End if
Merci beaucoup ta formule fonctionne tré bien!! Mais peut-t-on supprimer la même ligne dans toutes les feuilles??
Encore merci a toi
Essai ceci, Private Sub CommandButton1_Click() If [H4] <> "" Then Exit Sub For ligne = 4 To [A65000].End(xlUp).Row If Cells(ligne, 1) = [G4] Then Rows(ligne).Delete Exit For End If Next End Sub
Youky
"esteban" a écrit dans le message de news:
Bonjour à tout le forum!!!
j'ai un problème concernant une macro, si vous pouviez m'aider ... SVP je voudrais quand la case H4 n'est pa cochée (référence au client Dupond en
G4) que l'ordinateur recherche le nom du client (Dupond) dans la colonne A
et supprime la ligne correspondante. Et si la case H4 est cochée qu'il ne se
passe rien! Mon idée était donc d'appliquer la fonction RechercheV combinée avec une condition, mais je ne sai pa du tout comment utiliser cette fonction sous VBA
Excel
If Range ("B4") <>"x" Then (fonction rechercheV) Rows(":").DeleteShift=x1Up End if
Merci beaucoup par avance!
Youky
Oui cé possible, pour toutes les feuilles.
Private Sub CommandButton1_Click() If [H4] <> "" Then Exit Sub For ligne = 4 To [A65000].End(xlUp).Row If Cells(ligne, 1) = [G4] Then For onglet = 1 To Sheets.Count Sheets(onglet).Rows(ligne).Delete Next Exit For End If Next End Sub
"esteban" a écrit dans le message de news:
Merci beaucoup ta formule fonctionne tré bien!! Mais peut-t-on supprimer la même ligne dans toutes les feuilles??
Encore merci a toi
Essai ceci, Private Sub CommandButton1_Click() If [H4] <> "" Then Exit Sub For ligne = 4 To [A65000].End(xlUp).Row If Cells(ligne, 1) = [G4] Then Rows(ligne).Delete Exit For End If Next End Sub
Youky
"esteban" a écrit dans le message de news:
Bonjour à tout le forum!!!
j'ai un problème concernant une macro, si vous pouviez m'aider ... SVP je voudrais quand la case H4 n'est pa cochée (référence au client Dupond
en
G4) que l'ordinateur recherche le nom du client (Dupond) dans la colonne
A
et supprime la ligne correspondante. Et si la case H4 est cochée qu'il ne
se
passe rien! Mon idée était donc d'appliquer la fonction RechercheV combinée avec une
condition, mais je ne sai pa du tout comment utiliser cette fonction sous
VBA
Excel
If Range ("B4") <>"x" Then (fonction rechercheV) Rows(":").DeleteShift=x1Up End if
Merci beaucoup par avance!
Oui cé possible, pour toutes les feuilles.
Private Sub CommandButton1_Click()
If [H4] <> "" Then Exit Sub
For ligne = 4 To [A65000].End(xlUp).Row
If Cells(ligne, 1) = [G4] Then
For onglet = 1 To Sheets.Count
Sheets(onglet).Rows(ligne).Delete
Next
Exit For
End If
Next
End Sub
"esteban" <esteban@discussions.microsoft.com> a écrit dans le message de
news: 84397F48-CD6B-4FE8-9B22-F9851D3C7860@microsoft.com...
Merci beaucoup ta formule fonctionne tré bien!!
Mais peut-t-on supprimer la même ligne dans toutes les feuilles??
Encore merci a toi
Essai ceci,
Private Sub CommandButton1_Click()
If [H4] <> "" Then Exit Sub
For ligne = 4 To [A65000].End(xlUp).Row
If Cells(ligne, 1) = [G4] Then
Rows(ligne).Delete
Exit For
End If
Next
End Sub
Youky
"esteban" <esteban@discussions.microsoft.com> a écrit dans le message de
news: 08FC8B55-8BD5-4919-AAB5-6EF6B86A2C9D@microsoft.com...
Bonjour à tout le forum!!!
j'ai un problème concernant une macro, si vous pouviez m'aider
... SVP
je voudrais quand la case H4 n'est pa cochée (référence au client
Dupond
en
G4) que l'ordinateur recherche le nom du client (Dupond) dans la
colonne
A
et supprime la ligne correspondante. Et si la case H4 est cochée qu'il
ne
se
passe rien!
Mon idée était donc d'appliquer la fonction RechercheV combinée avec
une
condition, mais je ne sai pa du tout comment utiliser cette fonction
sous
VBA
Excel
If Range ("B4") <>"x" Then
(fonction rechercheV)
Rows(":").DeleteShift=x1Up
End if
Private Sub CommandButton1_Click() If [H4] <> "" Then Exit Sub For ligne = 4 To [A65000].End(xlUp).Row If Cells(ligne, 1) = [G4] Then For onglet = 1 To Sheets.Count Sheets(onglet).Rows(ligne).Delete Next Exit For End If Next End Sub
"esteban" a écrit dans le message de news:
Merci beaucoup ta formule fonctionne tré bien!! Mais peut-t-on supprimer la même ligne dans toutes les feuilles??
Encore merci a toi
Essai ceci, Private Sub CommandButton1_Click() If [H4] <> "" Then Exit Sub For ligne = 4 To [A65000].End(xlUp).Row If Cells(ligne, 1) = [G4] Then Rows(ligne).Delete Exit For End If Next End Sub
Youky
"esteban" a écrit dans le message de news:
Bonjour à tout le forum!!!
j'ai un problème concernant une macro, si vous pouviez m'aider ... SVP je voudrais quand la case H4 n'est pa cochée (référence au client Dupond
en
G4) que l'ordinateur recherche le nom du client (Dupond) dans la colonne
A
et supprime la ligne correspondante. Et si la case H4 est cochée qu'il ne
se
passe rien! Mon idée était donc d'appliquer la fonction RechercheV combinée avec une
condition, mais je ne sai pa du tout comment utiliser cette fonction sous
VBA
Excel
If Range ("B4") <>"x" Then (fonction rechercheV) Rows(":").DeleteShift=x1Up End if
