apres plusieurs noyades sur ce forum
je pose ma question...
J'ai un UserForm avec :
-Txt_N°Ordre (TextBox) j'y rentre un numero
-NbSupp (TextBox)
-Cmd_Chercher (CommandButton)
-Cmd_SuppRecherche (CommandButton)
-...
le but de cette macro, c'est de rechercher le numero d'ordre(colonne A)
taper dans Txt_N°Ordre, de faire une verif sur la ligne de ce numero
et d'inscrire "SUPPRIMER" dans la cellule, a la place du num.
Je voulais donc ameliorer cette macro, en ajoutant un nouveau
textbox (NbSupp) sur le userform.
ce textbox indiquerait le nombre de "SUPPRIMER" trouvé dans la colonne A...
Donc la manip est que, je lance la macro,
dans le nouveau Textbox (NbSupp) est inscrit 0,
je tape 47521, je clicke sur le bouton Chercher,
elle me trouve ce num dans la colonne A,
m'indique les infos dans les autres cellules de cette ligne,
je clicke sur bouton Supprimer, et dans la cellule selectionnée
(A47522 j'ai une ligne de titre) est inscrit SUPPRIMER.
je me retrouve au debut du userform, pret a retaper un numero,
et dans le nouveau Textbox (NbSupp) est inscrit 1...
je tape 142... blabla... le num est remplacé par SUPPRIMER
NbSupp = 2
je tape 41236... NbSupp = 3
je ferme tout. je dors. je me reveille...
je lance ma macro et NbSupp = 3
...
Voila en esperant avoir ete clair...
Quel est le bout de code a insere ??? ou ???
Faut-il un Private Sub ?
Essaie : Lbl_NbSupp = Application.CountIf(Workbooks("Classeur2").Sheets("Feuil1").Range("A:A"), "SUPPRIMER") Daniel "tinou" a écrit dans le message de news:
pff j'etais partis pour le faire... j'ai un fichier excel qui contient toutes mes macros... donc je supprimais les modules qui servent a rien... et toujours dans ce fichier je copier des lignes d'adresse, je lance la macro pour voir et là, ca marche. !
Lbl_NbSupp = Application.CountIf(Sheets("Feuil1").Columns("A:A"), "SUPPRIMER") le probleme doit etre dans : sheets("feuill1") ??? car moi je lance la macro a partir d'un autre fichier ! donc faudrait un truc qui prenne en compte le classeur activer... et qui est une feuille qui s'appelle pas forcement "feuill1"
Merci pour ton aide.
je te met le classeur qui contient la macro + quelques adresses... il faudra donc que tu colles ces adresses sur un autre classeur.
http://cjoint.com/?eAmCfVehjk
merci
tinou
Essaie :
Lbl_NbSupp =
Application.CountIf(Workbooks("Classeur2").Sheets("Feuil1").Range("A:A"),
"SUPPRIMER")
Daniel
"tinou" <tinou@discussions.microsoft.com> a écrit dans le message de news:
5D4C4FB2-F543-4DBE-9545-7FD5D17B43E0@microsoft.com...
pff j'etais partis pour le faire...
j'ai un fichier excel qui contient toutes mes macros...
donc je supprimais les modules qui servent a rien...
et toujours dans ce fichier je copier des lignes d'adresse,
je lance la macro pour voir et là, ca marche. !
Lbl_NbSupp = Application.CountIf(Sheets("Feuil1").Columns("A:A"),
"SUPPRIMER")
le probleme doit etre dans : sheets("feuill1") ???
car moi je lance la macro a partir d'un autre fichier !
donc faudrait un truc qui prenne en compte le classeur activer...
et qui est une feuille qui s'appelle pas forcement "feuill1"
Merci pour ton aide.
je te met le classeur qui contient la macro + quelques adresses...
il faudra donc que tu colles ces adresses sur un autre classeur.
Essaie : Lbl_NbSupp = Application.CountIf(Workbooks("Classeur2").Sheets("Feuil1").Range("A:A"), "SUPPRIMER") Daniel "tinou" a écrit dans le message de news:
pff j'etais partis pour le faire... j'ai un fichier excel qui contient toutes mes macros... donc je supprimais les modules qui servent a rien... et toujours dans ce fichier je copier des lignes d'adresse, je lance la macro pour voir et là, ca marche. !
Lbl_NbSupp = Application.CountIf(Sheets("Feuil1").Columns("A:A"), "SUPPRIMER") le probleme doit etre dans : sheets("feuill1") ??? car moi je lance la macro a partir d'un autre fichier ! donc faudrait un truc qui prenne en compte le classeur activer... et qui est une feuille qui s'appelle pas forcement "feuill1"
Merci pour ton aide.
je te met le classeur qui contient la macro + quelques adresses... il faudra donc que tu colles ces adresses sur un autre classeur.
http://cjoint.com/?eAmCfVehjk
merci
tinou
tinou
...ca sent presque la fin... le souci c'est que mon classeur avec les adresses il s'appele pas "Classeurs 2" et la feuille ne s'appele pas "Feuill1"...
le probleme vient de là. Car quand je mets ce code : Lbl_NbSupp = Application.CountIf(Workbooks("SDImaj2006-05.xls").Sheets("SDI03_04-06").Range("A:A"), "SUPPRIMER") Ca marche...!!!!!!!!!!
il faudrait donc une formule general ! mon classeur ne s'appelera pas tout le temps SDImaj2006-05... il faut un truc qui prenne en compte le classeur ET la feuille active !
merci infiniment.
tinou
...ca sent presque la fin...
le souci c'est que mon classeur avec les adresses il s'appele pas "Classeurs
2"
et la feuille ne s'appele pas "Feuill1"...
le probleme vient de là. Car quand je mets ce code :
Lbl_NbSupp =
Application.CountIf(Workbooks("SDImaj2006-05.xls").Sheets("SDI03_04-06").Range("A:A"), "SUPPRIMER")
Ca marche...!!!!!!!!!!
il faudrait donc une formule general !
mon classeur ne s'appelera pas tout le temps SDImaj2006-05...
il faut un truc qui prenne en compte le classeur ET la feuille active !
...ca sent presque la fin... le souci c'est que mon classeur avec les adresses il s'appele pas "Classeurs 2" et la feuille ne s'appele pas "Feuill1"...
le probleme vient de là. Car quand je mets ce code : Lbl_NbSupp = Application.CountIf(Workbooks("SDImaj2006-05.xls").Sheets("SDI03_04-06").Range("A:A"), "SUPPRIMER") Ca marche...!!!!!!!!!!
il faudrait donc une formule general ! mon classeur ne s'appelera pas tout le temps SDImaj2006-05... il faut un truc qui prenne en compte le classeur ET la feuille active !
