Bonjour à tous !
Voilà j'ai un petit problème que je n'arrive pas à résoudre:
J'ai dans un classeur 4 feuilles.
Dans les 3 premières j'ai une liste de numéros avec en regard des noms qui
peut être variable ( j'ajoute et je supprime les lignes à l'aide d'un
userform ).
Ex : 001 ENGLO
002 RONCQ
015 VASCQ
ect ...
Pour bien comprendre :
aujourd'hui dans les 3 premières feuilles 002 RONCQ est présent mais demain
il se peut qu'il n'y soit plus.
Il se peut aussi que dans 7 semaines 002 RONCQ soit de nouveau présent
donc dans la 4eme feuille qui me sert d'historique ( ou je voudrai ajouter
des lignes mais n'en supprimer aucune ) je voudrai ajouter une ligne qu'à la
condition que le nom ne soit pas présent dans la liste déjà existante dans
ma 4eme feuille.
Mon Textbox par lequel je rentre les noms dans les divers feuilles s'appelle
TbxNom
La zone dans la 4eme feuille est Range("B3", Range("B3").End(xlDown))
Si quelqu'un peut m'avancer une base travail j'apprécierai ;o) !
--
dj9b@free.fr
www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
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
anonymousA
Bonjour,
je suppose qu'on ne rentre que le nom dans les feuilles . dans ces conditions (mais on peut faire plus compliqué ) utiliser la méthode find avec textBox.value sur le Range("B3", Range("B3").End(xlDown)) de la 4eme feuille. Je suppose aussi qu'on entre la valeur par l'activation d'un commandbutton sur le UF suite à frappe du nom dans le textbox.
Attention, si tu veux une détection d'une valeur complète et pas seulement de la valeur contenue dans une autre chaine d etexte, il faudra utiliser le paramètre Lookat:=xlwhole ( voir l'aide d'Excel pou les détails)
Private Sub CommandButton1_Click()
With Sheets("4eme feuille").Range("B3", Range("B3").End(xlDown)) If .Find(Me.TextBox1.Value) Is Nothing Then .Offset(.Rows.Count, 0).Cells(1, 1).Value = Me.TextBox1.Value End If End With
End Sub
A+
Bonjour à tous ! Voilà j'ai un petit problème que je n'arrive pas à résoudre: J'ai dans un classeur 4 feuilles. Dans les 3 premières j'ai une liste de numéros avec en regard des noms qui peut être variable ( j'ajoute et je supprime les lignes à l'aide d'un userform ). Ex : 001 ENGLO 002 RONCQ 015 VASCQ ect ... Pour bien comprendre : aujourd'hui dans les 3 premières feuilles 002 RONCQ est présent mais demain il se peut qu'il n'y soit plus. Il se peut aussi que dans 7 semaines 002 RONCQ soit de nouveau présent donc dans la 4eme feuille qui me sert d'historique ( ou je voudrai ajouter des lignes mais n'en supprimer aucune ) je voudrai ajouter une ligne qu'à la condition que le nom ne soit pas présent dans la liste déjà existante dans ma 4eme feuille.
Mon Textbox par lequel je rentre les noms dans les divers feuilles s'appelle TbxNom La zone dans la 4eme feuille est Range("B3", Range("B3").End(xlDown))
Si quelqu'un peut m'avancer une base travail j'apprécierai ;o) !
Bonjour,
je suppose qu'on ne rentre que le nom dans les feuilles . dans ces
conditions (mais on peut faire plus compliqué ) utiliser la méthode find
avec textBox.value sur le Range("B3", Range("B3").End(xlDown)) de la
4eme feuille.
Je suppose aussi qu'on entre la valeur par l'activation d'un
commandbutton sur le UF suite à frappe du nom dans le textbox.
Attention, si tu veux une détection d'une valeur complète et pas
seulement de la valeur contenue dans une autre chaine d etexte, il
faudra utiliser le paramètre Lookat:=xlwhole ( voir l'aide d'Excel pou
les détails)
Private Sub CommandButton1_Click()
With Sheets("4eme feuille").Range("B3", Range("B3").End(xlDown))
If .Find(Me.TextBox1.Value) Is Nothing Then
.Offset(.Rows.Count, 0).Cells(1, 1).Value = Me.TextBox1.Value
End If
End With
End Sub
A+
Bonjour à tous !
Voilà j'ai un petit problème que je n'arrive pas à résoudre:
J'ai dans un classeur 4 feuilles.
Dans les 3 premières j'ai une liste de numéros avec en regard des noms qui
peut être variable ( j'ajoute et je supprime les lignes à l'aide d'un
userform ).
Ex : 001 ENGLO
002 RONCQ
015 VASCQ
ect ...
Pour bien comprendre :
aujourd'hui dans les 3 premières feuilles 002 RONCQ est présent mais demain
il se peut qu'il n'y soit plus.
Il se peut aussi que dans 7 semaines 002 RONCQ soit de nouveau présent
donc dans la 4eme feuille qui me sert d'historique ( ou je voudrai ajouter
des lignes mais n'en supprimer aucune ) je voudrai ajouter une ligne qu'à la
condition que le nom ne soit pas présent dans la liste déjà existante dans
ma 4eme feuille.
Mon Textbox par lequel je rentre les noms dans les divers feuilles s'appelle
TbxNom
La zone dans la 4eme feuille est Range("B3", Range("B3").End(xlDown))
Si quelqu'un peut m'avancer une base travail j'apprécierai ;o) !
je suppose qu'on ne rentre que le nom dans les feuilles . dans ces conditions (mais on peut faire plus compliqué ) utiliser la méthode find avec textBox.value sur le Range("B3", Range("B3").End(xlDown)) de la 4eme feuille. Je suppose aussi qu'on entre la valeur par l'activation d'un commandbutton sur le UF suite à frappe du nom dans le textbox.
Attention, si tu veux une détection d'une valeur complète et pas seulement de la valeur contenue dans une autre chaine d etexte, il faudra utiliser le paramètre Lookat:=xlwhole ( voir l'aide d'Excel pou les détails)
Private Sub CommandButton1_Click()
With Sheets("4eme feuille").Range("B3", Range("B3").End(xlDown)) If .Find(Me.TextBox1.Value) Is Nothing Then .Offset(.Rows.Count, 0).Cells(1, 1).Value = Me.TextBox1.Value End If End With
End Sub
A+
Bonjour à tous ! Voilà j'ai un petit problème que je n'arrive pas à résoudre: J'ai dans un classeur 4 feuilles. Dans les 3 premières j'ai une liste de numéros avec en regard des noms qui peut être variable ( j'ajoute et je supprime les lignes à l'aide d'un userform ). Ex : 001 ENGLO 002 RONCQ 015 VASCQ ect ... Pour bien comprendre : aujourd'hui dans les 3 premières feuilles 002 RONCQ est présent mais demain il se peut qu'il n'y soit plus. Il se peut aussi que dans 7 semaines 002 RONCQ soit de nouveau présent donc dans la 4eme feuille qui me sert d'historique ( ou je voudrai ajouter des lignes mais n'en supprimer aucune ) je voudrai ajouter une ligne qu'à la condition que le nom ne soit pas présent dans la liste déjà existante dans ma 4eme feuille.
Mon Textbox par lequel je rentre les noms dans les divers feuilles s'appelle TbxNom La zone dans la 4eme feuille est Range("B3", Range("B3").End(xlDown))
Si quelqu'un peut m'avancer une base travail j'apprécierai ;o) !
DJ9B
Merci anonymousA ! Cela fonctionne parfaitement !
--
www.dj9b.fr.st et maintenant aussi : http://dj9b.free.fr "anonymousA" a écrit dans le message de news:4345644a$0$7847$
Bonjour,
je suppose qu'on ne rentre que le nom dans les feuilles . dans ces conditions (mais on peut faire plus compliqué ) utiliser la méthode find avec textBox.value sur le Range("B3", Range("B3").End(xlDown)) de la 4eme feuille. Je suppose aussi qu'on entre la valeur par l'activation d'un commandbutton sur le UF suite à frappe du nom dans le textbox.
Attention, si tu veux une détection d'une valeur complète et pas seulement de la valeur contenue dans une autre chaine d etexte, il faudra utiliser le paramètre Lookat:=xlwhole ( voir l'aide d'Excel pou les détails)
Private Sub CommandButton1_Click()
With Sheets("4eme feuille").Range("B3", Range("B3").End(xlDown)) If .Find(Me.TextBox1.Value) Is Nothing Then .Offset(.Rows.Count, 0).Cells(1, 1).Value = Me.TextBox1.Value End If End With
End Sub
A+
Bonjour à tous ! Voilà j'ai un petit problème que je n'arrive pas à résoudre: J'ai dans un classeur 4 feuilles. Dans les 3 premières j'ai une liste de numéros avec en regard des noms qui
peut être variable ( j'ajoute et je supprime les lignes à l'aide d'un userform ). Ex : 001 ENGLO 002 RONCQ 015 VASCQ ect ... Pour bien comprendre : aujourd'hui dans les 3 premières feuilles 002 RONCQ est présent mais demain
il se peut qu'il n'y soit plus. Il se peut aussi que dans 7 semaines 002 RONCQ soit de nouveau présent donc dans la 4eme feuille qui me sert d'historique ( ou je voudrai ajouter
des lignes mais n'en supprimer aucune ) je voudrai ajouter une ligne qu'à la
condition que le nom ne soit pas présent dans la liste déjà existante dans
ma 4eme feuille.
Mon Textbox par lequel je rentre les noms dans les divers feuilles s'appelle
TbxNom La zone dans la 4eme feuille est Range("B3", Range("B3").End(xlDown))
Si quelqu'un peut m'avancer une base travail j'apprécierai ;o) !
Merci anonymousA !
Cela fonctionne parfaitement !
--
dj9b@free.fr
www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de
news:4345644a$0$7847$8fcfb975@news.wanadoo.fr...
Bonjour,
je suppose qu'on ne rentre que le nom dans les feuilles . dans ces
conditions (mais on peut faire plus compliqué ) utiliser la méthode find
avec textBox.value sur le Range("B3", Range("B3").End(xlDown)) de la
4eme feuille.
Je suppose aussi qu'on entre la valeur par l'activation d'un
commandbutton sur le UF suite à frappe du nom dans le textbox.
Attention, si tu veux une détection d'une valeur complète et pas
seulement de la valeur contenue dans une autre chaine d etexte, il
faudra utiliser le paramètre Lookat:=xlwhole ( voir l'aide d'Excel pou
les détails)
Private Sub CommandButton1_Click()
With Sheets("4eme feuille").Range("B3", Range("B3").End(xlDown))
If .Find(Me.TextBox1.Value) Is Nothing Then
.Offset(.Rows.Count, 0).Cells(1, 1).Value = Me.TextBox1.Value
End If
End With
End Sub
A+
Bonjour à tous !
Voilà j'ai un petit problème que je n'arrive pas à résoudre:
J'ai dans un classeur 4 feuilles.
Dans les 3 premières j'ai une liste de numéros avec en regard des noms
qui
peut être variable ( j'ajoute et je supprime les lignes à l'aide d'un
userform ).
Ex : 001 ENGLO
002 RONCQ
015 VASCQ
ect ...
Pour bien comprendre :
aujourd'hui dans les 3 premières feuilles 002 RONCQ est présent mais
demain
il se peut qu'il n'y soit plus.
Il se peut aussi que dans 7 semaines 002 RONCQ soit de nouveau présent
donc dans la 4eme feuille qui me sert d'historique ( ou je voudrai
ajouter
des lignes mais n'en supprimer aucune ) je voudrai ajouter une ligne
qu'à la
condition que le nom ne soit pas présent dans la liste déjà existante
dans
ma 4eme feuille.
Mon Textbox par lequel je rentre les noms dans les divers feuilles
s'appelle
TbxNom
La zone dans la 4eme feuille est Range("B3", Range("B3").End(xlDown))
Si quelqu'un peut m'avancer une base travail j'apprécierai ;o) !
www.dj9b.fr.st et maintenant aussi : http://dj9b.free.fr "anonymousA" a écrit dans le message de news:4345644a$0$7847$
Bonjour,
je suppose qu'on ne rentre que le nom dans les feuilles . dans ces conditions (mais on peut faire plus compliqué ) utiliser la méthode find avec textBox.value sur le Range("B3", Range("B3").End(xlDown)) de la 4eme feuille. Je suppose aussi qu'on entre la valeur par l'activation d'un commandbutton sur le UF suite à frappe du nom dans le textbox.
Attention, si tu veux une détection d'une valeur complète et pas seulement de la valeur contenue dans une autre chaine d etexte, il faudra utiliser le paramètre Lookat:=xlwhole ( voir l'aide d'Excel pou les détails)
Private Sub CommandButton1_Click()
With Sheets("4eme feuille").Range("B3", Range("B3").End(xlDown)) If .Find(Me.TextBox1.Value) Is Nothing Then .Offset(.Rows.Count, 0).Cells(1, 1).Value = Me.TextBox1.Value End If End With
End Sub
A+
Bonjour à tous ! Voilà j'ai un petit problème que je n'arrive pas à résoudre: J'ai dans un classeur 4 feuilles. Dans les 3 premières j'ai une liste de numéros avec en regard des noms qui
peut être variable ( j'ajoute et je supprime les lignes à l'aide d'un userform ). Ex : 001 ENGLO 002 RONCQ 015 VASCQ ect ... Pour bien comprendre : aujourd'hui dans les 3 premières feuilles 002 RONCQ est présent mais demain
il se peut qu'il n'y soit plus. Il se peut aussi que dans 7 semaines 002 RONCQ soit de nouveau présent donc dans la 4eme feuille qui me sert d'historique ( ou je voudrai ajouter
des lignes mais n'en supprimer aucune ) je voudrai ajouter une ligne qu'à la
condition que le nom ne soit pas présent dans la liste déjà existante dans
ma 4eme feuille.
Mon Textbox par lequel je rentre les noms dans les divers feuilles s'appelle
TbxNom La zone dans la 4eme feuille est Range("B3", Range("B3").End(xlDown))
Si quelqu'un peut m'avancer une base travail j'apprécierai ;o) !
