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
Vincnet.
Par exemple, et à adapter avec la bonne valeur : For i = Range("A65536").End(xlUp).Row - 1 to 0 Step -1 If Range("A1").Offset(i).Value = TaValeur Then Rows(i).Delete End If Next i Mais bon, j'ai pas testé... -- A+
V.
Bonjour à tous,
Je cherche depuis ce matin sans trouver de résultat.
Je voudrais en renseignant une valeur dans un userform que toutes les lignes ou se trouvent cette valeur soit supprimées.
La valeur se trouvera tout le temps dans la colonne A ( ce sont des N° de devis) mais elle peut se repeter de 1 à 6 fois par exemple.
J espere etre clair ,
merci d avance
Par exemple, et à adapter avec la bonne valeur :
For i = Range("A65536").End(xlUp).Row - 1 to 0 Step -1
If Range("A1").Offset(i).Value = TaValeur Then
Rows(i).Delete
End If
Next i
Mais bon, j'ai pas testé...
--
A+
V.
Bonjour à tous,
Je cherche depuis ce matin sans trouver de résultat.
Je voudrais en renseignant une valeur dans un userform que toutes les
lignes ou se trouvent cette valeur soit supprimées.
La valeur se trouvera tout le temps dans la colonne A ( ce sont des N°
de devis) mais elle peut se repeter de 1 à 6 fois par exemple.
Par exemple, et à adapter avec la bonne valeur : For i = Range("A65536").End(xlUp).Row - 1 to 0 Step -1 If Range("A1").Offset(i).Value = TaValeur Then Rows(i).Delete End If Next i Mais bon, j'ai pas testé... -- A+
V.
Bonjour à tous,
Je cherche depuis ce matin sans trouver de résultat.
Je voudrais en renseignant une valeur dans un userform que toutes les lignes ou se trouvent cette valeur soit supprimées.
La valeur se trouvera tout le temps dans la colonne A ( ce sont des N° de devis) mais elle peut se repeter de 1 à 6 fois par exemple.
J espere etre clair ,
merci d avance
JB
Bonjour,
Private Sub CommandButton1_Click() [A65000].End(xlUp).Select Do While ActiveCell.Row > 1 If ActiveCell = Val(Me.Saisie) Then ActiveCell.EntireRow.Delete ' nos de devis numériques ActiveCell.Offset(-1, 0).Select Loop End Sub
JB
Bonjour à tous,
Je cherche depuis ce matin sans trouver de résultat.
Je voudrais en renseignant une valeur dans un userform que toutes les lignes ou se trouvent cette valeur soit supprimées.
La valeur se trouvera tout le temps dans la colonne A ( ce sont des N° de devis) mais elle peut se repeter de 1 à 6 fois par exemple.
J espere etre clair ,
merci d avance
Bonjour,
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Select
Do While ActiveCell.Row > 1
If ActiveCell = Val(Me.Saisie) Then ActiveCell.EntireRow.Delete
' nos de devis numériques
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
JB
Bonjour à tous,
Je cherche depuis ce matin sans trouver de résultat.
Je voudrais en renseignant une valeur dans un userform que toutes les
lignes ou se trouvent cette valeur soit supprimées.
La valeur se trouvera tout le temps dans la colonne A ( ce sont des N°
de devis) mais elle peut se repeter de 1 à 6 fois par exemple.
Private Sub CommandButton1_Click() [A65000].End(xlUp).Select Do While ActiveCell.Row > 1 If ActiveCell = Val(Me.Saisie) Then ActiveCell.EntireRow.Delete ' nos de devis numériques ActiveCell.Offset(-1, 0).Select Loop End Sub
JB
Bonjour à tous,
Je cherche depuis ce matin sans trouver de résultat.
Je voudrais en renseignant une valeur dans un userform que toutes les lignes ou se trouvent cette valeur soit supprimées.
La valeur se trouvera tout le temps dans la colonne A ( ce sont des N° de devis) mais elle peut se repeter de 1 à 6 fois par exemple.
J espere etre clair ,
merci d avance
Malach
Super cela fonctionne Comment remplacer ( Val(Me.Saisie) par une cellule par exemple ds la feuille ou je pourrais renseigner n'importe quelle valeur et donc en cliquant sur le formulaire supprimer les lignes de la valeurs correspondantent.
Bonjour,
Private Sub CommandButton1_Click() [A65000].End(xlUp).Select Do While ActiveCell.Row > 1 If ActiveCell = Val(Me.Saisie) Then ActiveCell.EntireRow.Delete ' nos de devis numériques ActiveCell.Offset(-1, 0).Select Loop End Sub
JB
Bonjour à tous,
Je cherche depuis ce matin sans trouver de résultat.
Je voudrais en renseignant une valeur dans un userform que toutes les lignes ou se trouvent cette valeur soit supprimées.
La valeur se trouvera tout le temps dans la colonne A ( ce sont des N ° de devis) mais elle peut se repeter de 1 à 6 fois par exemple.
J espere etre clair ,
merci d avance
Super cela fonctionne
Comment remplacer ( Val(Me.Saisie) par une cellule par exemple ds la
feuille ou je pourrais renseigner n'importe quelle valeur et donc en
cliquant sur le formulaire supprimer les lignes de la valeurs
correspondantent.
Bonjour,
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Select
Do While ActiveCell.Row > 1
If ActiveCell = Val(Me.Saisie) Then ActiveCell.EntireRow.Delete
' nos de devis numériques
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
JB
Bonjour à tous,
Je cherche depuis ce matin sans trouver de résultat.
Je voudrais en renseignant une valeur dans un userform que toutes les
lignes ou se trouvent cette valeur soit supprimées.
La valeur se trouvera tout le temps dans la colonne A ( ce sont des N °
de devis) mais elle peut se repeter de 1 à 6 fois par exemple.
Super cela fonctionne Comment remplacer ( Val(Me.Saisie) par une cellule par exemple ds la feuille ou je pourrais renseigner n'importe quelle valeur et donc en cliquant sur le formulaire supprimer les lignes de la valeurs correspondantent.
Bonjour,
Private Sub CommandButton1_Click() [A65000].End(xlUp).Select Do While ActiveCell.Row > 1 If ActiveCell = Val(Me.Saisie) Then ActiveCell.EntireRow.Delete ' nos de devis numériques ActiveCell.Offset(-1, 0).Select Loop End Sub
JB
Bonjour à tous,
Je cherche depuis ce matin sans trouver de résultat.
Je voudrais en renseignant une valeur dans un userform que toutes les lignes ou se trouvent cette valeur soit supprimées.
La valeur se trouvera tout le temps dans la colonne A ( ce sont des N ° de devis) mais elle peut se repeter de 1 à 6 fois par exemple.
J espere etre clair ,
merci d avance
JB
Si D1 contient le no à supprimer:
Sub SupSansForm() For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) = [D1] Then Rows(i).Delete Next End Sub
JB
Super cela fonctionne Comment remplacer ( Val(Me.Saisie) par une cellule par exemple ds la feuille ou je pourrais renseigner n'importe quelle valeur et donc en cliquant sur le formulaire supprimer les lignes de la valeurs correspondantent.
Bonjour,
Private Sub CommandButton1_Click() [A65000].End(xlUp).Select Do While ActiveCell.Row > 1 If ActiveCell = Val(Me.Saisie) Then ActiveCell.EntireRow.Delete ' nos de devis numériques ActiveCell.Offset(-1, 0).Select Loop End Sub
JB
Bonjour à tous,
Je cherche depuis ce matin sans trouver de résultat.
Je voudrais en renseignant une valeur dans un userform que toutes les lignes ou se trouvent cette valeur soit supprimées.
La valeur se trouvera tout le temps dans la colonne A ( ce sont des N ° de devis) mais elle peut se repeter de 1 à 6 fois par exemple.
J espere etre clair ,
merci d avance
Si D1 contient le no à supprimer:
Sub SupSansForm()
For i = [A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 1) = [D1] Then Rows(i).Delete
Next
End Sub
JB
Super cela fonctionne
Comment remplacer ( Val(Me.Saisie) par une cellule par exemple ds la
feuille ou je pourrais renseigner n'importe quelle valeur et donc en
cliquant sur le formulaire supprimer les lignes de la valeurs
correspondantent.
Bonjour,
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Select
Do While ActiveCell.Row > 1
If ActiveCell = Val(Me.Saisie) Then ActiveCell.EntireRow.Delete
' nos de devis numériques
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
JB
Bonjour à tous,
Je cherche depuis ce matin sans trouver de résultat.
Je voudrais en renseignant une valeur dans un userform que toutes les
lignes ou se trouvent cette valeur soit supprimées.
La valeur se trouvera tout le temps dans la colonne A ( ce sont des N °
de devis) mais elle peut se repeter de 1 à 6 fois par exemple.
Sub SupSansForm() For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) = [D1] Then Rows(i).Delete Next End Sub
JB
Super cela fonctionne Comment remplacer ( Val(Me.Saisie) par une cellule par exemple ds la feuille ou je pourrais renseigner n'importe quelle valeur et donc en cliquant sur le formulaire supprimer les lignes de la valeurs correspondantent.
Bonjour,
Private Sub CommandButton1_Click() [A65000].End(xlUp).Select Do While ActiveCell.Row > 1 If ActiveCell = Val(Me.Saisie) Then ActiveCell.EntireRow.Delete ' nos de devis numériques ActiveCell.Offset(-1, 0).Select Loop End Sub
JB
Bonjour à tous,
Je cherche depuis ce matin sans trouver de résultat.
Je voudrais en renseignant une valeur dans un userform que toutes les lignes ou se trouvent cette valeur soit supprimées.
La valeur se trouvera tout le temps dans la colonne A ( ce sont des N ° de devis) mais elle peut se repeter de 1 à 6 fois par exemple.
J espere etre clair ,
merci d avance
Malach
Bonjour,
Désolé je dois être bête ou alors je me suis mal exprimé
Dans le premier code, nous avons un userform qui supprime les lignes déterminé par "Val(Me.Saisie)" Me.Saisie étant la valeur à renseigner en dure pour suppression.
Le second code est une macro qui supprime les lignes par rapport à une valeur se trouvant dans une cellule de la feuille [D1] ,
D'une part, le second code ne supprime pas toutes les lignes d'un seul coup à la différence du premier code et d'autre part, ce que je voulais c est en cliquant sur le bouton supprimer du premier code avec la valeur à supprimer determiné dans une cellule ( comme sur le second code) cela me supprime les lignes.
N'hésitez pas à me questionner si cela n'est pas clair. Je reprends les 2 codes pour etre clair
1 ere code
Private Sub CommandButton1_Click() [A65000].End(xlUp).Select Do While ActiveCell.Row > 1 If ActiveCell = Val(Me.Saisie) Then ActiveCell.EntireRow.Delete ' nos de devis numériques ActiveCell.Offset(-1, 0).Select Loop End Sub
2 eme code
Sub SupSansForm() For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) = [D1] Then Rows(i).Delete Next End Sub
Super cela fonctionne Comment remplacer ( Val(Me.Saisie) par une cellule par exemple ds la feuille ou je pourrais renseigner n'importe quelle valeur et donc en cliquant sur le formulaire supprimer les lignes de la valeurs correspondantent.
merci d avance
Bonjour,
Désolé je dois être bête ou alors je me suis mal exprimé
Dans le premier code, nous avons un userform qui supprime les lignes
déterminé par "Val(Me.Saisie)" Me.Saisie étant la valeur à
renseigner en dure pour suppression.
Le second code est une macro qui supprime les lignes par rapport à une
valeur se trouvant dans une cellule de la feuille [D1] ,
D'une part, le second code ne supprime pas toutes les lignes d'un seul
coup à la différence du premier code et d'autre part, ce que je
voulais c est en cliquant sur le bouton supprimer du premier code avec
la valeur à supprimer determiné dans une cellule ( comme sur le
second code) cela me supprime les lignes.
N'hésitez pas à me questionner si cela n'est pas clair.
Je reprends les 2 codes pour etre clair
1 ere code
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Select
Do While ActiveCell.Row > 1
If ActiveCell = Val(Me.Saisie) Then ActiveCell.EntireRow.Delete
' nos de devis numériques
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
2 eme code
Sub SupSansForm()
For i = [A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 1) = [D1] Then Rows(i).Delete
Next
End Sub
Super cela fonctionne
Comment remplacer ( Val(Me.Saisie) par une cellule par exemple ds la
feuille ou je pourrais renseigner n'importe quelle valeur et donc en
cliquant sur le formulaire supprimer les lignes de la valeurs
correspondantent.
Désolé je dois être bête ou alors je me suis mal exprimé
Dans le premier code, nous avons un userform qui supprime les lignes déterminé par "Val(Me.Saisie)" Me.Saisie étant la valeur à renseigner en dure pour suppression.
Le second code est une macro qui supprime les lignes par rapport à une valeur se trouvant dans une cellule de la feuille [D1] ,
D'une part, le second code ne supprime pas toutes les lignes d'un seul coup à la différence du premier code et d'autre part, ce que je voulais c est en cliquant sur le bouton supprimer du premier code avec la valeur à supprimer determiné dans une cellule ( comme sur le second code) cela me supprime les lignes.
N'hésitez pas à me questionner si cela n'est pas clair. Je reprends les 2 codes pour etre clair
1 ere code
Private Sub CommandButton1_Click() [A65000].End(xlUp).Select Do While ActiveCell.Row > 1 If ActiveCell = Val(Me.Saisie) Then ActiveCell.EntireRow.Delete ' nos de devis numériques ActiveCell.Offset(-1, 0).Select Loop End Sub
2 eme code
Sub SupSansForm() For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) = [D1] Then Rows(i).Delete Next End Sub
Super cela fonctionne Comment remplacer ( Val(Me.Saisie) par une cellule par exemple ds la feuille ou je pourrais renseigner n'importe quelle valeur et donc en cliquant sur le formulaire supprimer les lignes de la valeurs correspondantent.
merci d avance
Malach
Arf oui je suis bete
J ai trouvé il faut simplement faire ceci Private Sub CommandButton1_Click() [A65000].End(xlUp).Select Do While ActiveCell.Row > 1 If ActiveCell = [H1] Then ActiveCell.EntireRow.Delete ' nos de devis numériques ActiveCell.Offset(-1, 0).Select Loop End Sub
Merci a tous pour votre aide
Bonjour,
Désolé je dois être bête ou alors je me suis mal exprimé
Dans le premier code, nous avons un userform qui supprime les lignes déterminé par "Val(Me.Saisie)" Me.Saisie étant la valeur à renseigner en dure pour suppression.
Le second code est une macro qui supprime les lignes par rapport à une valeur se trouvant dans une cellule de la feuille [D1] ,
D'une part, le second code ne supprime pas toutes les lignes d'un seul coup à la différence du premier code et d'autre part, ce que je voulais c est en cliquant sur le bouton supprimer du premier code avec la valeur à supprimer determiné dans une cellule ( comme sur le second code) cela me supprime les lignes.
N'hésitez pas à me questionner si cela n'est pas clair. Je reprends les 2 codes pour etre clair
1 ere code
Private Sub CommandButton1_Click() [A65000].End(xlUp).Select Do While ActiveCell.Row > 1 If ActiveCell = Val(Me.Saisie) Then ActiveCell.EntireRow.Dele te ' nos de devis numériques ActiveCell.Offset(-1, 0).Select Loop End Sub
2 eme code
Sub SupSansForm() For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) = [D1] Then Rows(i).Delete Next End Sub
Super cela fonctionne Comment remplacer ( Val(Me.Saisie) par une cellule par exemple ds la feuille ou je pourrais renseigner n'importe quelle valeur et donc en cliquant sur le formulaire supprimer les lignes de la valeurs correspondantent.
merci d avance
Arf oui je suis bete
J ai trouvé il faut simplement faire ceci
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Select
Do While ActiveCell.Row > 1
If ActiveCell = [H1] Then ActiveCell.EntireRow.Delete
' nos de devis numériques
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Merci a tous pour votre aide
Bonjour,
Désolé je dois être bête ou alors je me suis mal exprimé
Dans le premier code, nous avons un userform qui supprime les lignes
déterminé par "Val(Me.Saisie)" Me.Saisie étant la valeur à
renseigner en dure pour suppression.
Le second code est une macro qui supprime les lignes par rapport à une
valeur se trouvant dans une cellule de la feuille [D1] ,
D'une part, le second code ne supprime pas toutes les lignes d'un seul
coup à la différence du premier code et d'autre part, ce que je
voulais c est en cliquant sur le bouton supprimer du premier code avec
la valeur à supprimer determiné dans une cellule ( comme sur le
second code) cela me supprime les lignes.
N'hésitez pas à me questionner si cela n'est pas clair.
Je reprends les 2 codes pour etre clair
1 ere code
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Select
Do While ActiveCell.Row > 1
If ActiveCell = Val(Me.Saisie) Then ActiveCell.EntireRow.Dele te
' nos de devis numériques
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
2 eme code
Sub SupSansForm()
For i = [A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 1) = [D1] Then Rows(i).Delete
Next
End Sub
Super cela fonctionne
Comment remplacer ( Val(Me.Saisie) par une cellule par exemple ds la
feuille ou je pourrais renseigner n'importe quelle valeur et donc en
cliquant sur le formulaire supprimer les lignes de la valeurs
correspondantent.
J ai trouvé il faut simplement faire ceci Private Sub CommandButton1_Click() [A65000].End(xlUp).Select Do While ActiveCell.Row > 1 If ActiveCell = [H1] Then ActiveCell.EntireRow.Delete ' nos de devis numériques ActiveCell.Offset(-1, 0).Select Loop End Sub
Merci a tous pour votre aide
Bonjour,
Désolé je dois être bête ou alors je me suis mal exprimé
Dans le premier code, nous avons un userform qui supprime les lignes déterminé par "Val(Me.Saisie)" Me.Saisie étant la valeur à renseigner en dure pour suppression.
Le second code est une macro qui supprime les lignes par rapport à une valeur se trouvant dans une cellule de la feuille [D1] ,
D'une part, le second code ne supprime pas toutes les lignes d'un seul coup à la différence du premier code et d'autre part, ce que je voulais c est en cliquant sur le bouton supprimer du premier code avec la valeur à supprimer determiné dans une cellule ( comme sur le second code) cela me supprime les lignes.
N'hésitez pas à me questionner si cela n'est pas clair. Je reprends les 2 codes pour etre clair
1 ere code
Private Sub CommandButton1_Click() [A65000].End(xlUp).Select Do While ActiveCell.Row > 1 If ActiveCell = Val(Me.Saisie) Then ActiveCell.EntireRow.Dele te ' nos de devis numériques ActiveCell.Offset(-1, 0).Select Loop End Sub
2 eme code
Sub SupSansForm() For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) = [D1] Then Rows(i).Delete Next End Sub
Super cela fonctionne Comment remplacer ( Val(Me.Saisie) par une cellule par exemple ds la feuille ou je pourrais renseigner n'importe quelle valeur et donc en cliquant sur le formulaire supprimer les lignes de la valeurs correspondantent.
