Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Suppresion ligne avec recherche V par vba

Suppresion ligne avec recherche V par vba

8 réponses
Avatar
j0b
Bonsoir à vous je cherche une procédure pouvant me supprimer des lignes dans
une feuille ceci par vba. Je m'explique par exemple j ai plusieurs données
dans une feuille avec des numéros de pièces dans la colonne B exemple :

B C D
1 test test
2 test test
3 test test
3 test test
4 x x

Voila à partir de la j'ai un userfom avec une textbox et je voudrais bien
par exemple saisir 3 dans la textbox et quand je valide cela me supprime tous
les numéros de pièces 3 ( donc recherche dans la colonne B). On ma déjà
fournit une procédure pour cela mais elle beugé a partir de la 2eme
suppression et le problème c'est qu'à partir de ces données des feuilles sont
liées et lorsque que j'effectué une suppression cela m'avait cré des beug
dans les autres feuils. Voila donc j'espere que la procédure que vous allez
me fournir fonctionnera d'avantage. Sur ce je vous remercie d'avance et je
vous souhaite par la meme occasion une bonne nuit. Merci encore
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
ChrisV
Bonjour j0b,

Private Sub CommandButton1_Click()
Dim r As Long
Application.ScreenUpdating = False
UserForm1.Hide
dLgn = [B65536].End(xlUp).Row
For r = dLgn To 1 Step -1
If Cells(r, 2) = 1 * TextBox1.Value Then _
Rows(r).Delete
Next r
End Sub


ChrisV


"j0b" a écrit dans le message de news:

Bonsoir à vous je cherche une procédure pouvant me supprimer des lignes
dans
une feuille ceci par vba. Je m'explique par exemple j ai plusieurs données
dans une feuille avec des numéros de pièces dans la colonne B exemple :

B C D
1 test test
2 test test
3 test test
3 test test
4 x x

Voila à partir de la j'ai un userfom avec une textbox et je voudrais bien
par exemple saisir 3 dans la textbox et quand je valide cela me supprime
tous
les numéros de pièces 3 ( donc recherche dans la colonne B). On ma déjà
fournit une procédure pour cela mais elle beugé a partir de la 2eme
suppression et le problème c'est qu'à partir de ces données des feuilles
sont
liées et lorsque que j'effectué une suppression cela m'avait cré des beug
dans les autres feuils. Voila donc j'espere que la procédure que vous
allez
me fournir fonctionnera d'avantage. Sur ce je vous remercie d'avance et je
vous souhaite par la meme occasion une bonne nuit. Merci encore


Avatar
jps
SAS chrisV, roi de catalogne et des caves de thuir réunies, saurait-il me
dire pourquoi faut-il cacher le userform avant d'exécuter cette proc qui, si
j'ai bien compris, précède la saisie d'une valeur dans un textbox de l'UF?
jOb ne risque-t-il pas d'être plus pauvre encore?
à suivre
jps

"ChrisV" a écrit dans le message de news:
%
Bonjour j0b,

Private Sub CommandButton1_Click()
Dim r As Long
Application.ScreenUpdating = False
UserForm1.Hide
dLgn = [B65536].End(xlUp).Row
For r = dLgn To 1 Step -1
If Cells(r, 2) = 1 * TextBox1.Value Then _
Rows(r).Delete
Next r
End Sub


ChrisV


"j0b" a écrit dans le message de news:

Bonsoir à vous je cherche une procédure pouvant me supprimer des lignes
dans
une feuille ceci par vba. Je m'explique par exemple j ai plusieurs
données
dans une feuille avec des numéros de pièces dans la colonne B exemple :

B C D
1 test test
2 test test
3 test test
3 test test
4 x x

Voila à partir de la j'ai un userfom avec une textbox et je voudrais bien
par exemple saisir 3 dans la textbox et quand je valide cela me supprime
tous
les numéros de pièces 3 ( donc recherche dans la colonne B). On ma déjà
fournit une procédure pour cela mais elle beugé a partir de la 2eme
suppression et le problème c'est qu'à partir de ces données des feuilles
sont
liées et lorsque que j'effectué une suppression cela m'avait cré des beug
dans les autres feuils. Voila donc j'espere que la procédure que vous
allez
me fournir fonctionnera d'avantage. Sur ce je vous remercie d'avance et
je
vous souhaite par la meme occasion une bonne nuit. Merci encore






Avatar
j0b

SAS chrisV, roi de catalogne et des caves de thuir réunies, saurait-il me
dire pourquoi faut-il cacher le userform avant d'exécuter cette proc qui, si
j'ai bien compris, précède la saisie d'une valeur dans un textbox de l'UF?
jOb ne risque-t-il pas d'être plus pauvre encore?
à suivre
jps

"ChrisV" a écrit dans le message de news:
%
Bonjour j0b,

Private Sub CommandButton1_Click()
Dim r As Long
Application.ScreenUpdating = False
UserForm1.Hide
dLgn = [B65536].End(xlUp).Row
For r = dLgn To 1 Step -1
If Cells(r, 2) = 1 * TextBox1.Value Then _
Rows(r).Delete
Next r
End Sub


ChrisV


"j0b" a écrit dans le message de news:

Bonsoir à vous je cherche une procédure pouvant me supprimer des lignes
dans
une feuille ceci par vba. Je m'explique par exemple j ai plusieurs
données
dans une feuille avec des numéros de pièces dans la colonne B exemple :

B C D
1 test test
2 test test
3 test test
3 test test
4 x x

Voila à partir de la j'ai un userfom avec une textbox et je voudrais bien
par exemple saisir 3 dans la textbox et quand je valide cela me supprime
tous
les numéros de pièces 3 ( donc recherche dans la colonne B). On ma déjà
fournit une procédure pour cela mais elle beugé a partir de la 2eme
suppression et le problème c'est qu'à partir de ces données des feuilles
sont
liées et lorsque que j'effectué une suppression cela m'avait cré des beug
dans les autres feuils. Voila donc j'espere que la procédure que vous
allez
me fournir fonctionnera d'avantage. Sur ce je vous remercie d'avance et
je
vous souhaite par la meme occasion une bonne nuit. Merci encore



Merci bien je vais voir ce que je peux faire avec ceci. En ce qui concerne le cache du userform, il a pas utilisé unload comme procédure donc normalement tu peux utiliser les valeurs du userform ca ne pose aucun problème, du moins j'espère :). Sur ce merci encore et bonne journée, je vous tiens au courant si je rencontre des problèmes






Avatar
j0b
En ce qui concerne la procédure elle fonctionne nickel merci mais quand je
supprime une ligne j'ai des #REF dans les cellules sur les autres feuilles
qui sont liées avec celle ci. Existe-t-il un moyen de faire actualiser ceci
automatique ou tout simplement que si la cellule affiche #REF qu'elle ne
prenne pas en compte les valeurs et qu'elle affiche 0 à la place. Merci
Avatar
j0b
En fesant une petite recherche sur google, je viens de trouver ceci :

La fonction esterreur() permet cela.

Si en F3, on veut la formule F1*F2 sans
#REF si F2 disparait, on entre
=SI(ESTERREUR(F1*F2);"";F1*F2)

donc je pense que cela répond a ma question, ca risque d'etre embettant mais
ca doit fonctionner je pense, si vous avez une autre solution vous pouvez
toujours me la proposer merci et bonne journée
Avatar
ChrisV
Salut JP,

...pourquoi faut-il cacher le userform avant
d'exécuter cette proc


Ce n'est pas forcément nécessaire...
mais sans cette instruction, et avec la seule description précisée
initialement (1 userform, 1 textbox), la proc ne s'executera uniquement que
lorsque tu auras cliqué sur la case de fermeture de la userform...

Comme le précisait j0b, l'objet userform est ici simplement masqué, et si
les contrôles ne sont plus visibles, ils n'en restent pas moins
accessibles...


ChrisV


"jps" a écrit dans le message de news:
e$
SAS chrisV, roi de catalogne et des caves de thuir réunies, saurait-il me
dire pourquoi faut-il cacher le userform avant d'exécuter cette proc qui,
si j'ai bien compris, précède la saisie d'une valeur dans un textbox de
l'UF? jOb ne risque-t-il pas d'être plus pauvre encore?
à suivre
jps

"ChrisV" a écrit dans le message de news:
%
Bonjour j0b,

Private Sub CommandButton1_Click()
Dim r As Long
Application.ScreenUpdating = False
UserForm1.Hide
dLgn = [B65536].End(xlUp).Row
For r = dLgn To 1 Step -1
If Cells(r, 2) = 1 * TextBox1.Value Then _
Rows(r).Delete
Next r
End Sub


ChrisV


"j0b" a écrit dans le message de news:

Bonsoir à vous je cherche une procédure pouvant me supprimer des lignes
dans
une feuille ceci par vba. Je m'explique par exemple j ai plusieurs
données
dans une feuille avec des numéros de pièces dans la colonne B exemple :

B C D
1 test test
2 test test
3 test test
3 test test
4 x x

Voila à partir de la j'ai un userfom avec une textbox et je voudrais
bien
par exemple saisir 3 dans la textbox et quand je valide cela me supprime
tous
les numéros de pièces 3 ( donc recherche dans la colonne B). On ma déjà
fournit une procédure pour cela mais elle beugé a partir de la 2eme
suppression et le problème c'est qu'à partir de ces données des feuilles
sont
liées et lorsque que j'effectué une suppression cela m'avait cré des
beug
dans les autres feuils. Voila donc j'espere que la procédure que vous
allez
me fournir fonctionnera d'avantage. Sur ce je vous remercie d'avance et
je
vous souhaite par la meme occasion une bonne nuit. Merci encore










Avatar
jps
ah bon....merci, chef, pardon..sire
on n'aurait pas pu mettre le bouton dans le UF?
jps (pas roi du UF, des OUF à la rigueur)

"ChrisV" a écrit dans le message de
news:%
Salut JP,

...pourquoi faut-il cacher le userform avant
d'exécuter cette proc


Ce n'est pas forcément nécessaire...
mais sans cette instruction, et avec la seule description précisée
initialement (1 userform, 1 textbox), la proc ne s'executera uniquement
que

lorsque tu auras cliqué sur la case de fermeture de la userform...

Comme le précisait j0b, l'objet userform est ici simplement masqué, et si
les contrôles ne sont plus visibles, ils n'en restent pas moins
accessibles...


ChrisV


"jps" a écrit dans le message de news:
e$
SAS chrisV, roi de catalogne et des caves de thuir réunies, saurait-il
me


dire pourquoi faut-il cacher le userform avant d'exécuter cette proc
qui,


si j'ai bien compris, précède la saisie d'une valeur dans un textbox de
l'UF? jOb ne risque-t-il pas d'être plus pauvre encore?
à suivre
jps

"ChrisV" a écrit dans le message de news:
%
Bonjour j0b,

Private Sub CommandButton1_Click()
Dim r As Long
Application.ScreenUpdating = False
UserForm1.Hide
dLgn = [B65536].End(xlUp).Row
For r = dLgn To 1 Step -1
If Cells(r, 2) = 1 * TextBox1.Value Then _
Rows(r).Delete
Next r
End Sub


ChrisV


"j0b" a écrit dans le message de news:

Bonsoir à vous je cherche une procédure pouvant me supprimer des
lignes




dans
une feuille ceci par vba. Je m'explique par exemple j ai plusieurs
données
dans une feuille avec des numéros de pièces dans la colonne B exemple
:





B C D
1 test test
2 test test
3 test test
3 test test
4 x x

Voila à partir de la j'ai un userfom avec une textbox et je voudrais
bien
par exemple saisir 3 dans la textbox et quand je valide cela me
supprime




tous
les numéros de pièces 3 ( donc recherche dans la colonne B). On ma
déjà




fournit une procédure pour cela mais elle beugé a partir de la 2eme
suppression et le problème c'est qu'à partir de ces données des
feuilles




sont
liées et lorsque que j'effectué une suppression cela m'avait cré des
beug
dans les autres feuils. Voila donc j'espere que la procédure que vous
allez
me fournir fonctionnera d'avantage. Sur ce je vous remercie d'avance
et




je
vous souhaite par la meme occasion une bonne nuit. Merci encore














Avatar
j0b
Si si le bouton est dans le useform, c'est pourquoi la procédure est Private
Sub commandbutton1_click ce qui signifie que la procédure s'éxécute quand on
click sur le boutton 1, voila j'espère que j'ai répondu à ta question. :)


ah bon....merci, chef, pardon..sire
on n'aurait pas pu mettre le bouton dans le UF?
jps (pas roi du UF, des OUF à la rigueur)

"ChrisV" a écrit dans le message de
news:%
Salut JP,

...pourquoi faut-il cacher le userform avant
d'exécuter cette proc


Ce n'est pas forcément nécessaire...
mais sans cette instruction, et avec la seule description précisée
initialement (1 userform, 1 textbox), la proc ne s'executera uniquement
que

lorsque tu auras cliqué sur la case de fermeture de la userform...

Comme le précisait j0b, l'objet userform est ici simplement masqué, et si
les contrôles ne sont plus visibles, ils n'en restent pas moins
accessibles...


ChrisV


"jps" a écrit dans le message de news:
e$
SAS chrisV, roi de catalogne et des caves de thuir réunies, saurait-il
me


dire pourquoi faut-il cacher le userform avant d'exécuter cette proc
qui,


si j'ai bien compris, précède la saisie d'une valeur dans un textbox de
l'UF? jOb ne risque-t-il pas d'être plus pauvre encore?
à suivre
jps

"ChrisV" a écrit dans le message de news:
%
Bonjour j0b,

Private Sub CommandButton1_Click()
Dim r As Long
Application.ScreenUpdating = False
UserForm1.Hide
dLgn = [B65536].End(xlUp).Row
For r = dLgn To 1 Step -1
If Cells(r, 2) = 1 * TextBox1.Value Then _
Rows(r).Delete
Next r
End Sub


ChrisV


"j0b" a écrit dans le message de news:

Bonsoir à vous je cherche une procédure pouvant me supprimer des
lignes




dans
une feuille ceci par vba. Je m'explique par exemple j ai plusieurs
données
dans une feuille avec des numéros de pièces dans la colonne B exemple
:





B C D
1 test test
2 test test
3 test test
3 test test
4 x x

Voila à partir de la j'ai un userfom avec une textbox et je voudrais
bien
par exemple saisir 3 dans la textbox et quand je valide cela me
supprime




tous
les numéros de pièces 3 ( donc recherche dans la colonne B). On ma
déjà




fournit une procédure pour cela mais elle beugé a partir de la 2eme
suppression et le problème c'est qu'à partir de ces données des
feuilles




sont
liées et lorsque que j'effectué une suppression cela m'avait cré des
beug
dans les autres feuils. Voila donc j'espere que la procédure que vous
allez
me fournir fonctionnera d'avantage. Sur ce je vous remercie d'avance
et




je
vous souhaite par la meme occasion une bonne nuit. Merci encore