2 feuilles :
La premiere =3D Feuil1
La deuxieme =3DFeuil 2
En Feuil 1 on a 12 colonnes
colonne 1 =3D champs 1
colonne 2 =3D champs 2
colonne 3 =3D champs 3....
En Feuil 2 j'aimerais r=E9cup=E9rer des informations de la feuille 1 mais
avec qq particularit=E9es.
Il faut qu'en feuille 1 la colonne 1 soit marqu=E9e d'une 'X'
Compter le nbr de X car si < 17 alors r=E9partition des infos sur 1
feuille sinon si < 33 sur 2 feuilles
Pr=E9cision :
En finalit=E9 je souhaite cr=E9er des =E9tiquettes autocollantes lors
d'envoie de courrier
1 =E9tiquette =3D 5 Lignes maxi
1 Page comprend 16 =E9tiquettes r=E9partis sur 2 colonnes
Salut bien, Je posséde un fichier qui répond exactement à ta demande, pour faire soit des planchettes de 16 étiquettes ou des enveloppes 22x11. Le tout à la demande et bien sur ceci utilise des macros. Comme il y a des adresses véritables que j'ai pas modifiées je te l'envoie dans ta boite hotmail et non pas sur Cjoint... Youky a écrit dans le message de news:
2 feuilles : La premiere = Feuil1 La deuxieme þuil 2
En Feuil 1 on a 12 colonnes colonne 1 = champs 1 colonne 2 = champs 2 colonne 3 = champs 3....
En Feuil 2 j'aimerais récupérer des informations de la feuille 1 mais avec qq particularitées. Il faut qu'en feuille 1 la colonne 1 soit marquée d'une 'X' Compter le nbr de X car si < 17 alors répartition des infos sur 1 feuille sinon si < 33 sur 2 feuilles
Précision :
En finalité je souhaite créer des étiquettes autocollantes lors d'envoie de courrier 1 étiquette = 5 Lignes maxi 1 Page comprend 16 étiquettes répartis sur 2 colonnes
Merci pour votre aide.
Cordialement
Benjamin
Salut bien,
Je posséde un fichier qui répond exactement à ta demande, pour faire soit
des
planchettes de 16 étiquettes ou des enveloppes 22x11.
Le tout à la demande et bien sur ceci utilise des macros.
Comme il y a des adresses véritables que j'ai pas modifiées je te l'envoie
dans ta boite hotmail
et non pas sur Cjoint...
Youky
<dracbi@hotmail.fr> a écrit dans le message de news:
e863bee6-d49d-4a09-81dc-cd3e0e684bfe@k37g2000hsf.googlegroups.com...
2 feuilles :
La premiere = Feuil1
La deuxieme þuil 2
En Feuil 1 on a 12 colonnes
colonne 1 = champs 1
colonne 2 = champs 2
colonne 3 = champs 3....
En Feuil 2 j'aimerais récupérer des informations de la feuille 1 mais
avec qq particularitées.
Il faut qu'en feuille 1 la colonne 1 soit marquée d'une 'X'
Compter le nbr de X car si < 17 alors répartition des infos sur 1
feuille sinon si < 33 sur 2 feuilles
Précision :
En finalité je souhaite créer des étiquettes autocollantes lors
d'envoie de courrier
1 étiquette = 5 Lignes maxi
1 Page comprend 16 étiquettes répartis sur 2 colonnes
Salut bien, Je posséde un fichier qui répond exactement à ta demande, pour faire soit des planchettes de 16 étiquettes ou des enveloppes 22x11. Le tout à la demande et bien sur ceci utilise des macros. Comme il y a des adresses véritables que j'ai pas modifiées je te l'envoie dans ta boite hotmail et non pas sur Cjoint... Youky a écrit dans le message de news:
2 feuilles : La premiere = Feuil1 La deuxieme þuil 2
En Feuil 1 on a 12 colonnes colonne 1 = champs 1 colonne 2 = champs 2 colonne 3 = champs 3....
En Feuil 2 j'aimerais récupérer des informations de la feuille 1 mais avec qq particularitées. Il faut qu'en feuille 1 la colonne 1 soit marquée d'une 'X' Compter le nbr de X car si < 17 alors répartition des infos sur 1 feuille sinon si < 33 sur 2 feuilles
Précision :
En finalité je souhaite créer des étiquettes autocollantes lors d'envoie de courrier 1 étiquette = 5 Lignes maxi 1 Page comprend 16 étiquettes répartis sur 2 colonnes
Merci pour votre aide.
Cordialement
Benjamin
dracbi
On 7 mai, 18:51, "Youky" wrote:
Salut bien, Je posséde un fichier qui répond exactement à ta demande, pour faire soit des planchettes de 16 étiquettes ou des enveloppes 22x11. Le tout à la demande et bien sur ceci utilise des macros. Comme il y a des adresses véritables que j'ai pas modifiées je te l'en voie dans ta boite hotmail et non pas sur Cjoint... Youky a écrit dans le message de news:
2 feuilles : La premiere = Feuil1 La deuxieme þuil 2
En Feuil 1 on a 12 colonnes colonne 1 = champs 1 colonne 2 = champs 2 colonne 3 = champs 3....
En Feuil 2 j'aimerais récupérer des informations de la feuille 1 mais avec qq particularitées. Il faut qu'en feuille 1 la colonne 1 soit marquée d'une 'X' Compter le nbr de X car si < 17 alors répartition des infos sur 1 feuille sinon si < 33 sur 2 feuilles
Précision :
En finalité je souhaite créer des étiquettes autocollantes lors d'envoie de courrier 1 étiquette = 5 Lignes maxi 1 Page comprend 16 étiquettes répartis sur 2 colonnes
Merci pour votre aide.
Cordialement
Benjamin
Bonjour youki merci pour ton fichier malheuresement je n'ai pas le temps de regarder en profondeur celui ci... Je te fais signe.
Un grand merci pour ton aide :o)
On 7 mai, 18:51, "Youky" <nospam.bruno.je...@wanadoo.fr> wrote:
Salut bien,
Je posséde un fichier qui répond exactement à ta demande, pour faire soit
des
planchettes de 16 étiquettes ou des enveloppes 22x11.
Le tout à la demande et bien sur ceci utilise des macros.
Comme il y a des adresses véritables que j'ai pas modifiées je te l'en voie
dans ta boite hotmail
et non pas sur Cjoint...
Youky
<dra...@hotmail.fr> a écrit dans le message de news:
e863bee6-d49d-4a09-81dc-cd3e0e684...@k37g2000hsf.googlegroups.com...
2 feuilles :
La premiere = Feuil1
La deuxieme =Feuil 2
En Feuil 1 on a 12 colonnes
colonne 1 = champs 1
colonne 2 = champs 2
colonne 3 = champs 3....
En Feuil 2 j'aimerais récupérer des informations de la feuille 1 mais
avec qq particularitées.
Il faut qu'en feuille 1 la colonne 1 soit marquée d'une 'X'
Compter le nbr de X car si < 17 alors répartition des infos sur 1
feuille sinon si < 33 sur 2 feuilles
Précision :
En finalité je souhaite créer des étiquettes autocollantes lors
d'envoie de courrier
1 étiquette = 5 Lignes maxi
1 Page comprend 16 étiquettes répartis sur 2 colonnes
Merci pour votre aide.
Cordialement
Benjamin
Bonjour youki merci pour ton fichier malheuresement je n'ai pas le
temps de regarder en profondeur celui ci... Je te fais signe.
Salut bien, Je posséde un fichier qui répond exactement à ta demande, pour faire soit des planchettes de 16 étiquettes ou des enveloppes 22x11. Le tout à la demande et bien sur ceci utilise des macros. Comme il y a des adresses véritables que j'ai pas modifiées je te l'en voie dans ta boite hotmail et non pas sur Cjoint... Youky a écrit dans le message de news:
2 feuilles : La premiere = Feuil1 La deuxieme þuil 2
En Feuil 1 on a 12 colonnes colonne 1 = champs 1 colonne 2 = champs 2 colonne 3 = champs 3....
En Feuil 2 j'aimerais récupérer des informations de la feuille 1 mais avec qq particularitées. Il faut qu'en feuille 1 la colonne 1 soit marquée d'une 'X' Compter le nbr de X car si < 17 alors répartition des infos sur 1 feuille sinon si < 33 sur 2 feuilles
Précision :
En finalité je souhaite créer des étiquettes autocollantes lors d'envoie de courrier 1 étiquette = 5 Lignes maxi 1 Page comprend 16 étiquettes répartis sur 2 colonnes
Merci pour votre aide.
Cordialement
Benjamin
Bonjour youki merci pour ton fichier malheuresement je n'ai pas le temps de regarder en profondeur celui ci... Je te fais signe.
Un grand merci pour ton aide :o)
dracbi
On 7 mai, 18:51, "Youky" wrote:
Salut bien, Je posséde un fichier qui répond exactement à ta demande, pour faire soit des planchettes de 16 étiquettes ou des enveloppes 22x11. Le tout à la demande et bien sur ceci utilise des macros. Comme il y a des adresses véritables que j'ai pas modifiées je te l'en voie dans ta boite hotmail et non pas sur Cjoint... Youky a écrit dans le message de news:
2 feuilles : La premiere = Feuil1 La deuxieme þuil 2
En Feuil 1 on a 12 colonnes colonne 1 = champs 1 colonne 2 = champs 2 colonne 3 = champs 3....
En Feuil 2 j'aimerais récupérer des informations de la feuille 1 mais avec qq particularitées. Il faut qu'en feuille 1 la colonne 1 soit marquée d'une 'X' Compter le nbr de X car si < 17 alors répartition des infos sur 1 feuille sinon si < 33 sur 2 feuilles
Précision :
En finalité je souhaite créer des étiquettes autocollantes lors d'envoie de courrier 1 étiquette = 5 Lignes maxi 1 Page comprend 16 étiquettes répartis sur 2 colonnes
Merci pour votre aide.
Cordialement
Benjamin
Bonsoir, C'est ce qui me fallait en terme d'etiquetage c'est impeccable. Un grand bravo. Comment faire pour que les X se mettent avec un Doubleclick sur la souris ? Cordialement
Merci à toi .
Cordialement
Benjamin
On 7 mai, 18:51, "Youky" <nospam.bruno.je...@wanadoo.fr> wrote:
Salut bien,
Je posséde un fichier qui répond exactement à ta demande, pour faire soit
des
planchettes de 16 étiquettes ou des enveloppes 22x11.
Le tout à la demande et bien sur ceci utilise des macros.
Comme il y a des adresses véritables que j'ai pas modifiées je te l'en voie
dans ta boite hotmail
et non pas sur Cjoint...
Youky
<dra...@hotmail.fr> a écrit dans le message de news:
e863bee6-d49d-4a09-81dc-cd3e0e684...@k37g2000hsf.googlegroups.com...
2 feuilles :
La premiere = Feuil1
La deuxieme =Feuil 2
En Feuil 1 on a 12 colonnes
colonne 1 = champs 1
colonne 2 = champs 2
colonne 3 = champs 3....
En Feuil 2 j'aimerais récupérer des informations de la feuille 1 mais
avec qq particularitées.
Il faut qu'en feuille 1 la colonne 1 soit marquée d'une 'X'
Compter le nbr de X car si < 17 alors répartition des infos sur 1
feuille sinon si < 33 sur 2 feuilles
Précision :
En finalité je souhaite créer des étiquettes autocollantes lors
d'envoie de courrier
1 étiquette = 5 Lignes maxi
1 Page comprend 16 étiquettes répartis sur 2 colonnes
Merci pour votre aide.
Cordialement
Benjamin
Bonsoir,
C'est ce qui me fallait en terme d'etiquetage c'est impeccable.
Un grand bravo.
Comment faire pour que les X se mettent avec un Doubleclick sur la
souris ?
Cordialement
Salut bien, Je posséde un fichier qui répond exactement à ta demande, pour faire soit des planchettes de 16 étiquettes ou des enveloppes 22x11. Le tout à la demande et bien sur ceci utilise des macros. Comme il y a des adresses véritables que j'ai pas modifiées je te l'en voie dans ta boite hotmail et non pas sur Cjoint... Youky a écrit dans le message de news:
2 feuilles : La premiere = Feuil1 La deuxieme þuil 2
En Feuil 1 on a 12 colonnes colonne 1 = champs 1 colonne 2 = champs 2 colonne 3 = champs 3....
En Feuil 2 j'aimerais récupérer des informations de la feuille 1 mais avec qq particularitées. Il faut qu'en feuille 1 la colonne 1 soit marquée d'une 'X' Compter le nbr de X car si < 17 alors répartition des infos sur 1 feuille sinon si < 33 sur 2 feuilles
Précision :
En finalité je souhaite créer des étiquettes autocollantes lors d'envoie de courrier 1 étiquette = 5 Lignes maxi 1 Page comprend 16 étiquettes répartis sur 2 colonnes
Merci pour votre aide.
Cordialement
Benjamin
Bonsoir, C'est ce qui me fallait en terme d'etiquetage c'est impeccable. Un grand bravo. Comment faire pour que les X se mettent avec un Doubleclick sur la souris ? Cordialement
En bref ...pour mettre une X dans une cellule en faisant un double clique :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target = "" Then Target = "X" Else Target = "" End If Cancel = True End Sub
On 9 mai, 11:28, dra...@hotmail.fr wrote:
J'ai trouvé des info sur le sujet ...
http://www.cathyastuce.com/vba/concept.php
Cordialement
Benjamin
En bref ...pour mettre une X dans une cellule en faisant un double
clique :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target = "" Then
Target = "X"
Else
Target = ""
End If
Cancel = True
End Sub
En bref ...pour mettre une X dans une cellule en faisant un double clique :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target = "" Then Target = "X" Else Target = "" End If Cancel = True End Sub
JB
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Target = IIf(Target = "", "X", "") Cancel = True End Sub
JB http://boisgontierjacques.free.fr/
On 9 mai, 11:32, wrote:
On 9 mai, 11:28, wrote:
J'ai trouvé des info sur le sujet ...
http://www.cathyastuce.com/vba/concept.php
Cordialement
Benjamin
En bref ...pour mettre une X dans une cellule en faisant un double clique :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target = "" Then Target = "X" Else Target = "" End If Cancel = True End Sub
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
Target = IIf(Target = "", "X", "")
Cancel = True
End Sub
JB
http://boisgontierjacques.free.fr/
On 9 mai, 11:32, dra...@hotmail.fr wrote:
On 9 mai, 11:28, dra...@hotmail.fr wrote:
J'ai trouvé des info sur le sujet ...
http://www.cathyastuce.com/vba/concept.php
Cordialement
Benjamin
En bref ...pour mettre une X dans une cellule en faisant un double
clique :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target = "" Then
Target = "X"
Else
Target = ""
End If
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Target = IIf(Target = "", "X", "") Cancel = True End Sub
JB http://boisgontierjacques.free.fr/
On 9 mai, 11:32, wrote:
On 9 mai, 11:28, wrote:
J'ai trouvé des info sur le sujet ...
http://www.cathyastuce.com/vba/concept.php
Cordialement
Benjamin
En bref ...pour mettre une X dans une cellule en faisant un double clique :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target = "" Then Target = "X" Else Target = "" End If Cancel = True End Sub
Youky
Voici le fichier avec des adresses bidons pour ceux que cela intéresse http://cjoint.com/?fjnbyUjsG5 Je t'ai envoyé ce même fichier à 9h15, j'ai seulement modifié de facon que si tu changes directement des données en feuille Adresse ces données soient mises à jour dans l'userform sur ce fichier. Pour le double click rien de changé... Youky a écrit dans le message de news:
On 9 mai, 11:28, wrote:
J'ai trouvé des info sur le sujet ...
http://www.cathyastuce.com/vba/concept.php
Cordialement
Benjamin
En bref ...pour mettre une X dans une cellule en faisant un double clique :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target = "" Then Target = "X" Else Target = "" End If Cancel = True End Sub
Voici le fichier avec des adresses bidons pour ceux que cela intéresse
http://cjoint.com/?fjnbyUjsG5
Je t'ai envoyé ce même fichier à 9h15, j'ai seulement modifié de facon que
si tu
changes directement des données en feuille Adresse
ces données soient mises à jour dans l'userform sur ce fichier.
Pour le double click rien de changé...
Youky
<dracbi@hotmail.fr> a écrit dans le message de news:
65a6259f-d1b9-46aa-b102-57d14703924c@f63g2000hsf.googlegroups.com...
On 9 mai, 11:28, dra...@hotmail.fr wrote:
J'ai trouvé des info sur le sujet ...
http://www.cathyastuce.com/vba/concept.php
Cordialement
Benjamin
En bref ...pour mettre une X dans une cellule en faisant un double
clique :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target = "" Then
Target = "X"
Else
Target = ""
End If
Cancel = True
End Sub
Voici le fichier avec des adresses bidons pour ceux que cela intéresse http://cjoint.com/?fjnbyUjsG5 Je t'ai envoyé ce même fichier à 9h15, j'ai seulement modifié de facon que si tu changes directement des données en feuille Adresse ces données soient mises à jour dans l'userform sur ce fichier. Pour le double click rien de changé... Youky a écrit dans le message de news:
On 9 mai, 11:28, wrote:
J'ai trouvé des info sur le sujet ...
http://www.cathyastuce.com/vba/concept.php
Cordialement
Benjamin
En bref ...pour mettre une X dans une cellule en faisant un double clique :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target = "" Then Target = "X" Else Target = "" End If Cancel = True End Sub
dracbi
On 9 mai, 13:10, "Youky" wrote:
Voici le fichier avec des adresses bidons pour ceux que cela intéresseht tp://cjoint.com/?fjnbyUjsG5 Je t'ai envoyé ce même fichier à 9h15, j'ai seulement modifié de f acon que si tu changes directement des données en feuille Adresse ces données soient mises à jour dans l'userform sur ce fichier. Pour le double click rien de changé... Youky a écrit dans le message de news:
On 9 mai, 11:28, wrote:
J'ai trouvé des info sur le sujet ...
http://www.cathyastuce.com/vba/concept.php
Cordialement
Benjamin
En bref ...pour mettre une X dans une cellule en faisant un double clique :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target = "" Then Target = "X" Else Target = "" End If Cancel = True End Sub
Bonjour Youky,
A quoi correspond le 3 dans cette ligne ?
For k = 2 To .[A65536].End(3).Row
On 9 mai, 13:10, "Youky" <nospam.bruno.je...@wanadoo.fr> wrote:
Voici le fichier avec des adresses bidons pour ceux que cela intéresseht tp://cjoint.com/?fjnbyUjsG5
Je t'ai envoyé ce même fichier à 9h15, j'ai seulement modifié de f acon que
si tu
changes directement des données en feuille Adresse
ces données soient mises à jour dans l'userform sur ce fichier.
Pour le double click rien de changé...
Youky
<dra...@hotmail.fr> a écrit dans le message de news:
65a6259f-d1b9-46aa-b102-57d147039...@f63g2000hsf.googlegroups.com...
On 9 mai, 11:28, dra...@hotmail.fr wrote:
J'ai trouvé des info sur le sujet ...
http://www.cathyastuce.com/vba/concept.php
Cordialement
Benjamin
En bref ...pour mettre une X dans une cellule en faisant un double
clique :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target = "" Then
Target = "X"
Else
Target = ""
End If
Cancel = True
End Sub
Voici le fichier avec des adresses bidons pour ceux que cela intéresseht tp://cjoint.com/?fjnbyUjsG5 Je t'ai envoyé ce même fichier à 9h15, j'ai seulement modifié de f acon que si tu changes directement des données en feuille Adresse ces données soient mises à jour dans l'userform sur ce fichier. Pour le double click rien de changé... Youky a écrit dans le message de news:
On 9 mai, 11:28, wrote:
J'ai trouvé des info sur le sujet ...
http://www.cathyastuce.com/vba/concept.php
Cordialement
Benjamin
En bref ...pour mettre une X dans une cellule en faisant un double clique :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target = "" Then Target = "X" Else Target = "" End If Cancel = True End Sub
Bonjour Youky,
A quoi correspond le 3 dans cette ligne ?
For k = 2 To .[A65536].End(3).Row
dracbi
On 9 mai, 12:41, JB wrote:
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Target = IIf(Target = "", "X", "") Cancel = True End Sub
JBhttp://boisgontierjacques.free.fr/
On 9 mai, 11:32, wrote:
On 9 mai, 11:28, wrote:
J'ai trouvé des info sur le sujet ...
http://www.cathyastuce.com/vba/concept.php
Cordialement
Benjamin
En bref ...pour mettre une X dans une cellule en faisant un double clique :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target = "" Then Target = "X" Else Target = "" End If Cancel = True End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour JB et merci à toi :o)
On 9 mai, 12:41, JB <boisgont...@hotmail.com> wrote:
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
Target = IIf(Target = "", "X", "")
Cancel = True
End Sub
JBhttp://boisgontierjacques.free.fr/
On 9 mai, 11:32, dra...@hotmail.fr wrote:
On 9 mai, 11:28, dra...@hotmail.fr wrote:
J'ai trouvé des info sur le sujet ...
http://www.cathyastuce.com/vba/concept.php
Cordialement
Benjamin
En bref ...pour mettre une X dans une cellule en faisant un double
clique :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target = "" Then
Target = "X"
Else
Target = ""
End If
Cancel = True
End Sub- Masquer le texte des messages précédents -
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Target = IIf(Target = "", "X", "") Cancel = True End Sub
JBhttp://boisgontierjacques.free.fr/
On 9 mai, 11:32, wrote:
On 9 mai, 11:28, wrote:
J'ai trouvé des info sur le sujet ...
http://www.cathyastuce.com/vba/concept.php
Cordialement
Benjamin
En bref ...pour mettre une X dans une cellule en faisant un double clique :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target = "" Then Target = "X" Else Target = "" End If Cancel = True End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour JB et merci à toi :o)
Youky
le 3 remplace (xlUp) plus rapide à écrire cé tout Youky a écrit dans le message de news:
On 9 mai, 13:10, "Youky" wrote:
Voici le fichier avec des adresses bidons pour ceux que cela intéressehttp://cjoint.com/?fjnbyUjsG5 Je t'ai envoyé ce même fichier à 9h15, j'ai seulement modifié de facon que si tu changes directement des données en feuille Adresse ces données soient mises à jour dans l'userform sur ce fichier. Pour le double click rien de changé... Youky a écrit dans le message de news:
On 9 mai, 11:28, wrote:
J'ai trouvé des info sur le sujet ...
http://www.cathyastuce.com/vba/concept.php
Cordialement
Benjamin
En bref ...pour mettre une X dans une cellule en faisant un double clique :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target = "" Then Target = "X" Else Target = "" End If Cancel = True End Sub
Bonjour Youky,
A quoi correspond le 3 dans cette ligne ?
For k = 2 To .[A65536].End(3).Row
le 3 remplace (xlUp) plus rapide à écrire cé tout
Youky
<dracbi@hotmail.fr> a écrit dans le message de news:
2acb9c93-13dd-489e-bf2d-718119eb7be4@f63g2000hsf.googlegroups.com...
On 9 mai, 13:10, "Youky" <nospam.bruno.je...@wanadoo.fr> wrote:
Voici le fichier avec des adresses bidons pour ceux que cela
intéressehttp://cjoint.com/?fjnbyUjsG5
Je t'ai envoyé ce même fichier à 9h15, j'ai seulement modifié de facon que
si tu
changes directement des données en feuille Adresse
ces données soient mises à jour dans l'userform sur ce fichier.
Pour le double click rien de changé...
Youky
<dra...@hotmail.fr> a écrit dans le message de news:
65a6259f-d1b9-46aa-b102-57d147039...@f63g2000hsf.googlegroups.com...
On 9 mai, 11:28, dra...@hotmail.fr wrote:
J'ai trouvé des info sur le sujet ...
http://www.cathyastuce.com/vba/concept.php
Cordialement
Benjamin
En bref ...pour mettre une X dans une cellule en faisant un double
clique :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target = "" Then
Target = "X"
Else
Target = ""
End If
Cancel = True
End Sub
le 3 remplace (xlUp) plus rapide à écrire cé tout Youky a écrit dans le message de news:
On 9 mai, 13:10, "Youky" wrote:
Voici le fichier avec des adresses bidons pour ceux que cela intéressehttp://cjoint.com/?fjnbyUjsG5 Je t'ai envoyé ce même fichier à 9h15, j'ai seulement modifié de facon que si tu changes directement des données en feuille Adresse ces données soient mises à jour dans l'userform sur ce fichier. Pour le double click rien de changé... Youky a écrit dans le message de news:
On 9 mai, 11:28, wrote:
J'ai trouvé des info sur le sujet ...
http://www.cathyastuce.com/vba/concept.php
Cordialement
Benjamin
En bref ...pour mettre une X dans une cellule en faisant un double clique :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target = "" Then Target = "X" Else Target = "" End If Cancel = True End Sub