Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous demander
autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B et en
colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F lors
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être fainéantise...
Merci de vos idées
Pascal
Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous demander
autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B et en
colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F lors
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être fainéantise...
Merci de vos idées
Pascal
Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous demander
autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B et en
colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F lors
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être fainéantise...
Merci de vos idées
Pascal
Bonsoir Pascal,
Si tu veux te lancer aux macros .....
1 click avec le bouton droit de la souris sur l'onglet et visualiser le
code et fait
un copié-collé intégrale du ci-dessous dans la fenetre blanche
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Cells(Target.Row, 6) = Target.Value
End Sub
Youky
"Pascal" ,com> a écrit dans le message de news:Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous
demander autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B et
en colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F lors
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être fainéantise...
Merci de vos idées
Pascal
Bonsoir Pascal,
Si tu veux te lancer aux macros .....
1 click avec le bouton droit de la souris sur l'onglet et visualiser le
code et fait
un copié-collé intégrale du ci-dessous dans la fenetre blanche
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Cells(Target.Row, 6) = Target.Value
End Sub
Youky
"Pascal" <inconnu@hotmail,com> a écrit dans le message de news:
OrVlhRBxIHA.5832@TK2MSFTNGP02.phx.gbl...
Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous
demander autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B et
en colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F lors
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être fainéantise...
Merci de vos idées
Pascal
Bonsoir Pascal,
Si tu veux te lancer aux macros .....
1 click avec le bouton droit de la souris sur l'onglet et visualiser le
code et fait
un copié-collé intégrale du ci-dessous dans la fenetre blanche
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Cells(Target.Row, 6) = Target.Value
End Sub
Youky
"Pascal" ,com> a écrit dans le message de news:Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous
demander autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B et
en colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F lors
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être fainéantise...
Merci de vos idées
Pascal
hello Youcky,
merci pour ta réponse mais ce code ne vérifie pas les noms déjà pr ésent dans
la liste
moi j'aimerai faire encodage des données(Noms) colonne B
à la fin de la saisie : vérifier si ce nom existe si non on l'ajoute à la
suite de la colonne F
s'il existe on ne le rajoute pas
pas simple visiblement!
merci pour cette idée
Pascal
"Youky" a écrit dans le message de news:Bonsoir Pascal,
Si tu veux te lancer aux macros .....
1 click avec le bouton droit de la souris sur l'onglet et visualiser le
code et fait
un copié-collé intégrale du ci-dessous dans la fenetre blanche
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Cells(Target.Row, 6) = Target.Value
End Sub
Youky
"Pascal" ,com> a écrit dans le message de news:Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous
demander autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B et
en colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F lo rs
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être fainéa ntise...
Merci de vos idées
Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
hello Youcky,
merci pour ta réponse mais ce code ne vérifie pas les noms déjà pr ésent dans
la liste
moi j'aimerai faire encodage des données(Noms) colonne B
à la fin de la saisie : vérifier si ce nom existe si non on l'ajoute à la
suite de la colonne F
s'il existe on ne le rajoute pas
pas simple visiblement!
merci pour cette idée
Pascal
"Youky" <nospam.bruno.je...@wanadoo.fr> a écrit dans le message de news:
OwFymOCxIHA.4...@TK2MSFTNGP03.phx.gbl...
Bonsoir Pascal,
Si tu veux te lancer aux macros .....
1 click avec le bouton droit de la souris sur l'onglet et visualiser le
code et fait
un copié-collé intégrale du ci-dessous dans la fenetre blanche
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Cells(Target.Row, 6) = Target.Value
End Sub
Youky
"Pascal" <inconnu@hotmail,com> a écrit dans le message de news:
OrVlhRBxIHA.5...@TK2MSFTNGP02.phx.gbl...
Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous
demander autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B et
en colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F lo rs
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être fainéa ntise...
Merci de vos idées
Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
hello Youcky,
merci pour ta réponse mais ce code ne vérifie pas les noms déjà pr ésent dans
la liste
moi j'aimerai faire encodage des données(Noms) colonne B
à la fin de la saisie : vérifier si ce nom existe si non on l'ajoute à la
suite de la colonne F
s'il existe on ne le rajoute pas
pas simple visiblement!
merci pour cette idée
Pascal
"Youky" a écrit dans le message de news:Bonsoir Pascal,
Si tu veux te lancer aux macros .....
1 click avec le bouton droit de la souris sur l'onglet et visualiser le
code et fait
un copié-collé intégrale du ci-dessous dans la fenetre blanche
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Cells(Target.Row, 6) = Target.Value
End Sub
Youky
"Pascal" ,com> a écrit dans le message de news:Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous
demander autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B et
en colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F lo rs
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être fainéa ntise...
Merci de vos idées
Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
If Target <> "" Then
Set result = [F:F].Find(what:=Target)
If result Is Nothing Then
[F65000].End(xlUp).Offset(1, 0) = Target
End If
End If
End If
End Sub
JBhttp://boisgontierjacques.free.fr
On 2 juin, 00:30, "Pascal" ,com> wrote:hello Youcky,
merci pour ta réponse mais ce code ne vérifie pas les noms déjà présent dans
la liste
moi j'aimerai faire encodage des données(Noms) colonne B
à la fin de la saisie : vérifier si ce nom existe si non on l'ajoute à la
suite de la colonne F
s'il existe on ne le rajoute pas
pas simple visiblement!
merci pour cette idée
Pascal
"Youky" a écrit dans le message de new s:Bonsoir Pascal,
Si tu veux te lancer aux macros .....
1 click avec le bouton droit de la souris sur l'onglet et visualiser l e
code et fait
un copié-collé intégrale du ci-dessous dans la fenetre blanche
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Cells(Target.Row, 6) = Target.Value
End Sub
Youky
"Pascal" ,com> a écrit dans le message de news:Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous
demander autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B et
en colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F lors
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être fain éantise...
Merci de vos idées
Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
If Target <> "" Then
Set result = [F:F].Find(what:=Target)
If result Is Nothing Then
[F65000].End(xlUp).Offset(1, 0) = Target
End If
End If
End If
End Sub
JBhttp://boisgontierjacques.free.fr
On 2 juin, 00:30, "Pascal" <inconnu@hotmail,com> wrote:
hello Youcky,
merci pour ta réponse mais ce code ne vérifie pas les noms déjà présent dans
la liste
moi j'aimerai faire encodage des données(Noms) colonne B
à la fin de la saisie : vérifier si ce nom existe si non on l'ajoute à la
suite de la colonne F
s'il existe on ne le rajoute pas
pas simple visiblement!
merci pour cette idée
Pascal
"Youky" <nospam.bruno.je...@wanadoo.fr> a écrit dans le message de new s:
OwFymOCxIHA.4...@TK2MSFTNGP03.phx.gbl...
Bonsoir Pascal,
Si tu veux te lancer aux macros .....
1 click avec le bouton droit de la souris sur l'onglet et visualiser l e
code et fait
un copié-collé intégrale du ci-dessous dans la fenetre blanche
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Cells(Target.Row, 6) = Target.Value
End Sub
Youky
"Pascal" <inconnu@hotmail,com> a écrit dans le message de news:
OrVlhRBxIHA.5...@TK2MSFTNGP02.phx.gbl...
Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous
demander autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B et
en colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F lors
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être fain éantise...
Merci de vos idées
Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
If Target <> "" Then
Set result = [F:F].Find(what:=Target)
If result Is Nothing Then
[F65000].End(xlUp).Offset(1, 0) = Target
End If
End If
End If
End Sub
JBhttp://boisgontierjacques.free.fr
On 2 juin, 00:30, "Pascal" ,com> wrote:hello Youcky,
merci pour ta réponse mais ce code ne vérifie pas les noms déjà présent dans
la liste
moi j'aimerai faire encodage des données(Noms) colonne B
à la fin de la saisie : vérifier si ce nom existe si non on l'ajoute à la
suite de la colonne F
s'il existe on ne le rajoute pas
pas simple visiblement!
merci pour cette idée
Pascal
"Youky" a écrit dans le message de new s:Bonsoir Pascal,
Si tu veux te lancer aux macros .....
1 click avec le bouton droit de la souris sur l'onglet et visualiser l e
code et fait
un copié-collé intégrale du ci-dessous dans la fenetre blanche
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Cells(Target.Row, 6) = Target.Value
End Sub
Youky
"Pascal" ,com> a écrit dans le message de news:Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous
demander autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B et
en colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F lors
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être fain éantise...
Merci de vos idées
Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
hello Youcky,
merci pour ta réponse mais ce code ne vérifie pas les noms déjà présent
dans
la liste
moi j'aimerai faire encodage des données(Noms) colonne B
à la fin de la saisie : vérifier si ce nom existe si non on l'ajoute à la
suite de la colonne F
s'il existe on ne le rajoute pas
pas simple visiblement!
merci pour cette idée
Pascal
"Youky" a écrit dans le message de news:Bonsoir Pascal,
Si tu veux te lancer aux macros .....
1 click avec le bouton droit de la souris sur l'onglet et visualiser le
code et fait
un copié-collé intégrale du ci-dessous dans la fenetre blanche
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Cells(Target.Row, 6) = Target.Value
End Sub
Youky
"Pascal" ,com> a écrit dans le message de news:Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous
demander autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B et
en colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F
lors
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être
fainéantise...
Merci de vos idées
Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
hello Youcky,
merci pour ta réponse mais ce code ne vérifie pas les noms déjà présent
dans
la liste
moi j'aimerai faire encodage des données(Noms) colonne B
à la fin de la saisie : vérifier si ce nom existe si non on l'ajoute à la
suite de la colonne F
s'il existe on ne le rajoute pas
pas simple visiblement!
merci pour cette idée
Pascal
"Youky" <nospam.bruno.je...@wanadoo.fr> a écrit dans le message de news:
OwFymOCxIHA.4...@TK2MSFTNGP03.phx.gbl...
Bonsoir Pascal,
Si tu veux te lancer aux macros .....
1 click avec le bouton droit de la souris sur l'onglet et visualiser le
code et fait
un copié-collé intégrale du ci-dessous dans la fenetre blanche
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Cells(Target.Row, 6) = Target.Value
End Sub
Youky
"Pascal" <inconnu@hotmail,com> a écrit dans le message de news:
OrVlhRBxIHA.5...@TK2MSFTNGP02.phx.gbl...
Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous
demander autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B et
en colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F
lors
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être
fainéantise...
Merci de vos idées
Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
hello Youcky,
merci pour ta réponse mais ce code ne vérifie pas les noms déjà présent
dans
la liste
moi j'aimerai faire encodage des données(Noms) colonne B
à la fin de la saisie : vérifier si ce nom existe si non on l'ajoute à la
suite de la colonne F
s'il existe on ne le rajoute pas
pas simple visiblement!
merci pour cette idée
Pascal
"Youky" a écrit dans le message de news:Bonsoir Pascal,
Si tu veux te lancer aux macros .....
1 click avec le bouton droit de la souris sur l'onglet et visualiser le
code et fait
un copié-collé intégrale du ci-dessous dans la fenetre blanche
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Cells(Target.Row, 6) = Target.Value
End Sub
Youky
"Pascal" ,com> a écrit dans le message de news:Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous
demander autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B et
en colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F
lors
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être
fainéantise...
Merci de vos idées
Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Nickel chrome
je te remercie infiniment
histoire de ne pas mourir idiot le F65000 est la limite?
grand merci à toi
Pascal
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
If Target <> "" Then
Set result = [F:F].Find(what:=Target)
If result Is Nothing Then
[F65000].End(xlUp).Offset(1, 0) = Target
End If
End If
End If
End Sub
JB
http://boisgontierjacques.free.fr
On 2 juin, 00:30, "Pascal" ,com> wrote:hello Youcky,
merci pour ta réponse mais ce code ne vérifie pas les noms déjà présent
dans
la liste
moi j'aimerai faire encodage des données(Noms) colonne B
à la fin de la saisie : vérifier si ce nom existe si non on l'ajoute à la
suite de la colonne F
s'il existe on ne le rajoute pas
pas simple visiblement!
merci pour cette idée
Pascal
"Youky" a écrit dans le message de news:Bonsoir Pascal,
Si tu veux te lancer aux macros .....
1 click avec le bouton droit de la souris sur l'onglet et visualiser le
code et fait
un copié-collé intégrale du ci-dessous dans la fenetre blanche
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Cells(Target.Row, 6) = Target.Value
End Sub
Youky
"Pascal" ,com> a écrit dans le message de news:Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous
demander autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B
et
en colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F
lors
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être
fainéantise...
Merci de vos idées
Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Nickel chrome
je te remercie infiniment
histoire de ne pas mourir idiot le F65000 est la limite?
grand merci à toi
Pascal
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
506a16f1-9f82-477d-9f5f-0e2db9f84802@e53g2000hsa.googlegroups.com...
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
If Target <> "" Then
Set result = [F:F].Find(what:=Target)
If result Is Nothing Then
[F65000].End(xlUp).Offset(1, 0) = Target
End If
End If
End If
End Sub
JB
http://boisgontierjacques.free.fr
On 2 juin, 00:30, "Pascal" <inconnu@hotmail,com> wrote:
hello Youcky,
merci pour ta réponse mais ce code ne vérifie pas les noms déjà présent
dans
la liste
moi j'aimerai faire encodage des données(Noms) colonne B
à la fin de la saisie : vérifier si ce nom existe si non on l'ajoute à la
suite de la colonne F
s'il existe on ne le rajoute pas
pas simple visiblement!
merci pour cette idée
Pascal
"Youky" <nospam.bruno.je...@wanadoo.fr> a écrit dans le message de news:
OwFymOCxIHA.4...@TK2MSFTNGP03.phx.gbl...
Bonsoir Pascal,
Si tu veux te lancer aux macros .....
1 click avec le bouton droit de la souris sur l'onglet et visualiser le
code et fait
un copié-collé intégrale du ci-dessous dans la fenetre blanche
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Cells(Target.Row, 6) = Target.Value
End Sub
Youky
"Pascal" <inconnu@hotmail,com> a écrit dans le message de news:
OrVlhRBxIHA.5...@TK2MSFTNGP02.phx.gbl...
Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous
demander autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B
et
en colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F
lors
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être
fainéantise...
Merci de vos idées
Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Nickel chrome
je te remercie infiniment
histoire de ne pas mourir idiot le F65000 est la limite?
grand merci à toi
Pascal
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
If Target <> "" Then
Set result = [F:F].Find(what:=Target)
If result Is Nothing Then
[F65000].End(xlUp).Offset(1, 0) = Target
End If
End If
End If
End Sub
JB
http://boisgontierjacques.free.fr
On 2 juin, 00:30, "Pascal" ,com> wrote:hello Youcky,
merci pour ta réponse mais ce code ne vérifie pas les noms déjà présent
dans
la liste
moi j'aimerai faire encodage des données(Noms) colonne B
à la fin de la saisie : vérifier si ce nom existe si non on l'ajoute à la
suite de la colonne F
s'il existe on ne le rajoute pas
pas simple visiblement!
merci pour cette idée
Pascal
"Youky" a écrit dans le message de news:Bonsoir Pascal,
Si tu veux te lancer aux macros .....
1 click avec le bouton droit de la souris sur l'onglet et visualiser le
code et fait
un copié-collé intégrale du ci-dessous dans la fenetre blanche
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Cells(Target.Row, 6) = Target.Value
End Sub
Youky
"Pascal" ,com> a écrit dans le message de news:Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous
demander autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B
et
en colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F
lors
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être
fainéantise...
Merci de vos idées
Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Pour les versions inférieures à 2007 la limite est 65536
Youky
"Pascal" ,com> a écrit dans le message de news:Nickel chrome
je te remercie infiniment
histoire de ne pas mourir idiot le F65000 est la limite?
grand merci à toi
Pascal
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
If Target <> "" Then
Set result = [F:F].Find(what:=Target)
If result Is Nothing Then
[F65000].End(xlUp).Offset(1, 0) = Target
End If
End If
End If
End Sub
JB
http://boisgontierjacques.free.fr
On 2 juin, 00:30, "Pascal" ,com> wrote:hello Youcky,
merci pour ta réponse mais ce code ne vérifie pas les noms déjà présent
dans
la liste
moi j'aimerai faire encodage des données(Noms) colonne B
à la fin de la saisie : vérifier si ce nom existe si non on l'ajoute à
la
suite de la colonne F
s'il existe on ne le rajoute pas
pas simple visiblement!
merci pour cette idée
Pascal
"Youky" a écrit dans le message de news:Bonsoir Pascal,
Si tu veux te lancer aux macros .....
1 click avec le bouton droit de la souris sur l'onglet et visualiser
le
code et fait
un copié-collé intégrale du ci-dessous dans la fenetre blanche
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Cells(Target.Row, 6) = Target.Value
End Sub
Youky
"Pascal" ,com> a écrit dans le message de news:Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous
demander autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B
et
en colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F
lors
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être
fainéantise...
Merci de vos idées
Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Pour les versions inférieures à 2007 la limite est 65536
Youky
"Pascal" <inconnu@hotmail,com> a écrit dans le message de news:
eQyrOwKxIHA.4896@TK2MSFTNGP03.phx.gbl...
Nickel chrome
je te remercie infiniment
histoire de ne pas mourir idiot le F65000 est la limite?
grand merci à toi
Pascal
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
506a16f1-9f82-477d-9f5f-0e2db9f84802@e53g2000hsa.googlegroups.com...
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
If Target <> "" Then
Set result = [F:F].Find(what:=Target)
If result Is Nothing Then
[F65000].End(xlUp).Offset(1, 0) = Target
End If
End If
End If
End Sub
JB
http://boisgontierjacques.free.fr
On 2 juin, 00:30, "Pascal" <inconnu@hotmail,com> wrote:
hello Youcky,
merci pour ta réponse mais ce code ne vérifie pas les noms déjà présent
dans
la liste
moi j'aimerai faire encodage des données(Noms) colonne B
à la fin de la saisie : vérifier si ce nom existe si non on l'ajoute à
la
suite de la colonne F
s'il existe on ne le rajoute pas
pas simple visiblement!
merci pour cette idée
Pascal
"Youky" <nospam.bruno.je...@wanadoo.fr> a écrit dans le message de news:
OwFymOCxIHA.4...@TK2MSFTNGP03.phx.gbl...
Bonsoir Pascal,
Si tu veux te lancer aux macros .....
1 click avec le bouton droit de la souris sur l'onglet et visualiser
le
code et fait
un copié-collé intégrale du ci-dessous dans la fenetre blanche
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Cells(Target.Row, 6) = Target.Value
End Sub
Youky
"Pascal" <inconnu@hotmail,com> a écrit dans le message de news:
OrVlhRBxIHA.5...@TK2MSFTNGP02.phx.gbl...
Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous
demander autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B
et
en colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F
lors
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être
fainéantise...
Merci de vos idées
Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Pour les versions inférieures à 2007 la limite est 65536
Youky
"Pascal" ,com> a écrit dans le message de news:Nickel chrome
je te remercie infiniment
histoire de ne pas mourir idiot le F65000 est la limite?
grand merci à toi
Pascal
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
If Target <> "" Then
Set result = [F:F].Find(what:=Target)
If result Is Nothing Then
[F65000].End(xlUp).Offset(1, 0) = Target
End If
End If
End If
End Sub
JB
http://boisgontierjacques.free.fr
On 2 juin, 00:30, "Pascal" ,com> wrote:hello Youcky,
merci pour ta réponse mais ce code ne vérifie pas les noms déjà présent
dans
la liste
moi j'aimerai faire encodage des données(Noms) colonne B
à la fin de la saisie : vérifier si ce nom existe si non on l'ajoute à
la
suite de la colonne F
s'il existe on ne le rajoute pas
pas simple visiblement!
merci pour cette idée
Pascal
"Youky" a écrit dans le message de news:Bonsoir Pascal,
Si tu veux te lancer aux macros .....
1 click avec le bouton droit de la souris sur l'onglet et visualiser
le
code et fait
un copié-collé intégrale du ci-dessous dans la fenetre blanche
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Cells(Target.Row, 6) = Target.Value
End Sub
Youky
"Pascal" ,com> a écrit dans le message de news:Bonsoir,
comme je remarque que rien ne vous rebute, j'en profite pour vous
demander autre chose
dans ces 3 colonnes j'ai mes données
Colonne a = DATE
Colonne B= Nom
Colonne c=Montant
dans une colonne F j'ai rajouté manuellment les noms de la colonne B
et
en colonne G j'ai le chiffre total par nom
y a-t-il un moyen que le nom se rajoute automatiquement en colonne F
lors
de la saisie en colonne B?
pas gravissime en soi mais plus par curiosité et peut-être
fainéantise...
Merci de vos idées
Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -