Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" a écrit dans le message de news:
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
eUT6IG30FHA.2932@TK2MSFTNGP10.phx.gbl...
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" a écrit dans le message de news:
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" a écrit dans le message de news:
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
eUT6IG30FHA.2932@TK2MSFTNGP10.phx.gbl...
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" a écrit dans le message de news:
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Ton fichier est là : http://cjoint.com/?ksghWSMkx3
Ce devrait rouler !
Salutations!
"Daniel" a écrit dans le message de news:
Bonsoir "michdenis"
J'ai attacher un fichier , mais je n'arrive pas a le faire fonctionner .
je ne connait pas la procédure pour inclure le chiffre et le nom dans le
bouton.
il y a deux boutons (urgent) pour chiffre 1 et (near urgent) pour 3
Peut tu corriger mon fichier.
http://cjoint.com/?ksfrw5GPeG
Merci
"michdenis" a écrit dans le message de news:Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" a écrit dans le message de news:
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Ton fichier est là : http://cjoint.com/?ksghWSMkx3
Ce devrait rouler !
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
uUtGuK50FHA.3336@TK2MSFTNGP12.phx.gbl...
Bonsoir "michdenis"
J'ai attacher un fichier , mais je n'arrive pas a le faire fonctionner .
je ne connait pas la procédure pour inclure le chiffre et le nom dans le
bouton.
il y a deux boutons (urgent) pour chiffre 1 et (near urgent) pour 3
Peut tu corriger mon fichier.
http://cjoint.com/?ksfrw5GPeG
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uDy0ge30FHA.2880@TK2MSFTNGP12.phx.gbl...
Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
eUT6IG30FHA.2932@TK2MSFTNGP10.phx.gbl...
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Ton fichier est là : http://cjoint.com/?ksghWSMkx3
Ce devrait rouler !
Salutations!
"Daniel" a écrit dans le message de news:
Bonsoir "michdenis"
J'ai attacher un fichier , mais je n'arrive pas a le faire fonctionner .
je ne connait pas la procédure pour inclure le chiffre et le nom dans le
bouton.
il y a deux boutons (urgent) pour chiffre 1 et (near urgent) pour 3
Peut tu corriger mon fichier.
http://cjoint.com/?ksfrw5GPeG
Merci
"michdenis" a écrit dans le message de news:Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" a écrit dans le message de news:
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Ton fichier est là : http://cjoint.com/?ksghWSMkx3
Ce devrait rouler !
Salutations!
"Daniel" a écrit dans le message de news:
Bonsoir "michdenis"
J'ai attacher un fichier , mais je n'arrive pas a le faire fonctionner .
je ne connait pas la procédure pour inclure le chiffre et le nom dans le
bouton.
il y a deux boutons (urgent) pour chiffre 1 et (near urgent) pour 3
Peut tu corriger mon fichier.
http://cjoint.com/?ksfrw5GPeG
Merci
"michdenis" a écrit dans le message de news:Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" a écrit dans le message de news:
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Ton fichier est là : http://cjoint.com/?ksghWSMkx3
Ce devrait rouler !
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
uUtGuK50FHA.3336@TK2MSFTNGP12.phx.gbl...
Bonsoir "michdenis"
J'ai attacher un fichier , mais je n'arrive pas a le faire fonctionner .
je ne connait pas la procédure pour inclure le chiffre et le nom dans le
bouton.
il y a deux boutons (urgent) pour chiffre 1 et (near urgent) pour 3
Peut tu corriger mon fichier.
http://cjoint.com/?ksfrw5GPeG
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uDy0ge30FHA.2880@TK2MSFTNGP12.phx.gbl...
Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
eUT6IG30FHA.2932@TK2MSFTNGP10.phx.gbl...
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Ton fichier est là : http://cjoint.com/?ksghWSMkx3
Ce devrait rouler !
Salutations!
"Daniel" a écrit dans le message de news:
Bonsoir "michdenis"
J'ai attacher un fichier , mais je n'arrive pas a le faire fonctionner .
je ne connait pas la procédure pour inclure le chiffre et le nom dans le
bouton.
il y a deux boutons (urgent) pour chiffre 1 et (near urgent) pour 3
Peut tu corriger mon fichier.
http://cjoint.com/?ksfrw5GPeG
Merci
"michdenis" a écrit dans le message de news:Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" a écrit dans le message de news:
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Comme ceci :
'---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
'Me.CommandButton6.Caption = [countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 6").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 7").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"3")]
End If
End Sub
'---------------------------
Salutations!
"Daniel" a écrit dans le message de news:
ul8pIy%
Bonjour "michdenis"
oui cela marche
est t'il possible d'avoir le nom et le chiffre sur le bouton.( urgent 3 )
Merci
"michdenis" a écrit dans le message de news:
uCP%Bonjour Daniel,
Ton fichier est là : http://cjoint.com/?ksghWSMkx3
Ce devrait rouler !
Salutations!
"Daniel" a écrit dans le message de news:
Bonsoir "michdenis"
J'ai attacher un fichier , mais je n'arrive pas a le faire fonctionner .
je ne connait pas la procédure pour inclure le chiffre et le nom dans le
bouton.
il y a deux boutons (urgent) pour chiffre 1 et (near urgent) pour 3
Peut tu corriger mon fichier.
http://cjoint.com/?ksfrw5GPeG
Merci
"michdenis" a écrit dans le message de news:Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" a écrit dans le message de news:
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Comme ceci :
'---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
'Me.CommandButton6.Caption = [countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 6").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 7").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"3")]
End If
End Sub
'---------------------------
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
ul8pIy%230FHA.3660@TK2MSFTNGP15.phx.gbl...
Bonjour "michdenis"
oui cela marche
est t'il possible d'avoir le nom et le chiffre sur le bouton.( urgent 3 )
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uCP%23bm50FHA.2076@TK2MSFTNGP14.phx.gbl...
Bonjour Daniel,
Ton fichier est là : http://cjoint.com/?ksghWSMkx3
Ce devrait rouler !
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
uUtGuK50FHA.3336@TK2MSFTNGP12.phx.gbl...
Bonsoir "michdenis"
J'ai attacher un fichier , mais je n'arrive pas a le faire fonctionner .
je ne connait pas la procédure pour inclure le chiffre et le nom dans le
bouton.
il y a deux boutons (urgent) pour chiffre 1 et (near urgent) pour 3
Peut tu corriger mon fichier.
http://cjoint.com/?ksfrw5GPeG
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uDy0ge30FHA.2880@TK2MSFTNGP12.phx.gbl...
Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
eUT6IG30FHA.2932@TK2MSFTNGP10.phx.gbl...
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Comme ceci :
'---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
'Me.CommandButton6.Caption = [countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 6").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 7").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"3")]
End If
End Sub
'---------------------------
Salutations!
"Daniel" a écrit dans le message de news:
ul8pIy%
Bonjour "michdenis"
oui cela marche
est t'il possible d'avoir le nom et le chiffre sur le bouton.( urgent 3 )
Merci
"michdenis" a écrit dans le message de news:
uCP%Bonjour Daniel,
Ton fichier est là : http://cjoint.com/?ksghWSMkx3
Ce devrait rouler !
Salutations!
"Daniel" a écrit dans le message de news:
Bonsoir "michdenis"
J'ai attacher un fichier , mais je n'arrive pas a le faire fonctionner .
je ne connait pas la procédure pour inclure le chiffre et le nom dans le
bouton.
il y a deux boutons (urgent) pour chiffre 1 et (near urgent) pour 3
Peut tu corriger mon fichier.
http://cjoint.com/?ksfrw5GPeG
Merci
"michdenis" a écrit dans le message de news:Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" a écrit dans le message de news:
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Comme ceci :
'---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
'Me.CommandButton6.Caption = [countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 6").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 7").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"3")]
End If
End Sub
'---------------------------
Salutations!
"Daniel" a écrit dans le message de news:
ul8pIy%
Bonjour "michdenis"
oui cela marche
est t'il possible d'avoir le nom et le chiffre sur le bouton.( urgent 3 )
Merci
"michdenis" a écrit dans le message de news:
uCP%Bonjour Daniel,
Ton fichier est là : http://cjoint.com/?ksghWSMkx3
Ce devrait rouler !
Salutations!
"Daniel" a écrit dans le message de news:
Bonsoir "michdenis"
J'ai attacher un fichier , mais je n'arrive pas a le faire fonctionner .
je ne connait pas la procédure pour inclure le chiffre et le nom dans le
bouton.
il y a deux boutons (urgent) pour chiffre 1 et (near urgent) pour 3
Peut tu corriger mon fichier.
http://cjoint.com/?ksfrw5GPeG
Merci
"michdenis" a écrit dans le message de news:Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" a écrit dans le message de news:
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Comme ceci :
'---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
'Me.CommandButton6.Caption = [countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 6").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 7").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"3")]
End If
End Sub
'---------------------------
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
ul8pIy%230FHA.3660@TK2MSFTNGP15.phx.gbl...
Bonjour "michdenis"
oui cela marche
est t'il possible d'avoir le nom et le chiffre sur le bouton.( urgent 3 )
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uCP%23bm50FHA.2076@TK2MSFTNGP14.phx.gbl...
Bonjour Daniel,
Ton fichier est là : http://cjoint.com/?ksghWSMkx3
Ce devrait rouler !
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
uUtGuK50FHA.3336@TK2MSFTNGP12.phx.gbl...
Bonsoir "michdenis"
J'ai attacher un fichier , mais je n'arrive pas a le faire fonctionner .
je ne connait pas la procédure pour inclure le chiffre et le nom dans le
bouton.
il y a deux boutons (urgent) pour chiffre 1 et (near urgent) pour 3
Peut tu corriger mon fichier.
http://cjoint.com/?ksfrw5GPeG
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uDy0ge30FHA.2880@TK2MSFTNGP12.phx.gbl...
Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
eUT6IG30FHA.2932@TK2MSFTNGP10.phx.gbl...
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Comme ceci :
'---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
'Me.CommandButton6.Caption = [countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 6").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 7").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"3")]
End If
End Sub
'---------------------------
Salutations!
"Daniel" a écrit dans le message de news:
ul8pIy%
Bonjour "michdenis"
oui cela marche
est t'il possible d'avoir le nom et le chiffre sur le bouton.( urgent 3 )
Merci
"michdenis" a écrit dans le message de news:
uCP%Bonjour Daniel,
Ton fichier est là : http://cjoint.com/?ksghWSMkx3
Ce devrait rouler !
Salutations!
"Daniel" a écrit dans le message de news:
Bonsoir "michdenis"
J'ai attacher un fichier , mais je n'arrive pas a le faire fonctionner .
je ne connait pas la procédure pour inclure le chiffre et le nom dans le
bouton.
il y a deux boutons (urgent) pour chiffre 1 et (near urgent) pour 3
Peut tu corriger mon fichier.
http://cjoint.com/?ksfrw5GPeG
Merci
"michdenis" a écrit dans le message de news:Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" a écrit dans le message de news:
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Explique succintement comment tu remplis ta colonne Range("C2:C500") dans
ta feuille de données.
Saisie manuelle, par macro, importation à l'aide d'une ODBC, ADO, DAO, ou
autrement ?
Salutations!
"Daniel" a écrit dans le message de news:
ONnogR$
Rebonjour "michdenis"
Oui :-)
Une petite chose ,
Avec une macro j'inporte des donné text et les chiffre des bouton ne
change
pas .
il faut que je tape F2 et "enter" pour rafraichir.
Merci
"michdenis" a écrit dans le message de news:
u9ubC3%Bonjour Daniel,
Comme ceci :
'---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
'Me.CommandButton6.Caption = [countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 6").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 7").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"3")]
End If
End Sub
'---------------------------
Salutations!
"Daniel" a écrit dans le message de news:
ul8pIy%
Bonjour "michdenis"
oui cela marche
est t'il possible d'avoir le nom et le chiffre sur le bouton.( urgent
3 )
Merci
"michdenis" a écrit dans le message de news:
uCP%Bonjour Daniel,
Ton fichier est là : http://cjoint.com/?ksghWSMkx3
Ce devrait rouler !
Salutations!
"Daniel" a écrit dans le message de news:
Bonsoir "michdenis"
J'ai attacher un fichier , mais je n'arrive pas a le faire fonctionner .
je ne connait pas la procédure pour inclure le chiffre et le nom dans le
bouton.
il y a deux boutons (urgent) pour chiffre 1 et (near urgent) pour 3
Peut tu corriger mon fichier.
http://cjoint.com/?ksfrw5GPeG
Merci
"michdenis" a écrit dans le message de news:Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" a écrit dans le message de news:
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Explique succintement comment tu remplis ta colonne Range("C2:C500") dans
ta feuille de données.
Saisie manuelle, par macro, importation à l'aide d'une ODBC, ADO, DAO, ou
autrement ?
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
ONnogR$0FHA.2132@TK2MSFTNGP15.phx.gbl...
Rebonjour "michdenis"
Oui :-)
Une petite chose ,
Avec une macro j'inporte des donné text et les chiffre des bouton ne
change
pas .
il faut que je tape F2 et "enter" pour rafraichir.
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
u9ubC3%230FHA.3896@TK2MSFTNGP10.phx.gbl...
Bonjour Daniel,
Comme ceci :
'---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
'Me.CommandButton6.Caption = [countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 6").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 7").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"3")]
End If
End Sub
'---------------------------
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
ul8pIy%230FHA.3660@TK2MSFTNGP15.phx.gbl...
Bonjour "michdenis"
oui cela marche
est t'il possible d'avoir le nom et le chiffre sur le bouton.( urgent
3 )
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uCP%23bm50FHA.2076@TK2MSFTNGP14.phx.gbl...
Bonjour Daniel,
Ton fichier est là : http://cjoint.com/?ksghWSMkx3
Ce devrait rouler !
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
uUtGuK50FHA.3336@TK2MSFTNGP12.phx.gbl...
Bonsoir "michdenis"
J'ai attacher un fichier , mais je n'arrive pas a le faire fonctionner .
je ne connait pas la procédure pour inclure le chiffre et le nom dans le
bouton.
il y a deux boutons (urgent) pour chiffre 1 et (near urgent) pour 3
Peut tu corriger mon fichier.
http://cjoint.com/?ksfrw5GPeG
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uDy0ge30FHA.2880@TK2MSFTNGP12.phx.gbl...
Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
eUT6IG30FHA.2932@TK2MSFTNGP10.phx.gbl...
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Explique succintement comment tu remplis ta colonne Range("C2:C500") dans
ta feuille de données.
Saisie manuelle, par macro, importation à l'aide d'une ODBC, ADO, DAO, ou
autrement ?
Salutations!
"Daniel" a écrit dans le message de news:
ONnogR$
Rebonjour "michdenis"
Oui :-)
Une petite chose ,
Avec une macro j'inporte des donné text et les chiffre des bouton ne
change
pas .
il faut que je tape F2 et "enter" pour rafraichir.
Merci
"michdenis" a écrit dans le message de news:
u9ubC3%Bonjour Daniel,
Comme ceci :
'---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
'Me.CommandButton6.Caption = [countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 6").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 7").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"3")]
End If
End Sub
'---------------------------
Salutations!
"Daniel" a écrit dans le message de news:
ul8pIy%
Bonjour "michdenis"
oui cela marche
est t'il possible d'avoir le nom et le chiffre sur le bouton.( urgent
3 )
Merci
"michdenis" a écrit dans le message de news:
uCP%Bonjour Daniel,
Ton fichier est là : http://cjoint.com/?ksghWSMkx3
Ce devrait rouler !
Salutations!
"Daniel" a écrit dans le message de news:
Bonsoir "michdenis"
J'ai attacher un fichier , mais je n'arrive pas a le faire fonctionner .
je ne connait pas la procédure pour inclure le chiffre et le nom dans le
bouton.
il y a deux boutons (urgent) pour chiffre 1 et (near urgent) pour 3
Peut tu corriger mon fichier.
http://cjoint.com/?ksfrw5GPeG
Merci
"michdenis" a écrit dans le message de news:Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" a écrit dans le message de news:
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Explique succintement comment tu remplis ta colonne Range("C2:C500") dans
ta feuille de données.
Saisie manuelle, par macro, importation à l'aide d'une ODBC, ADO, DAO, ou
autrement ?
Salutations!
"Daniel" a écrit dans le message de news:
ONnogR$
Rebonjour "michdenis"
Oui :-)
Une petite chose ,
Avec une macro j'inporte des donné text et les chiffre des bouton ne
change
pas .
il faut que je tape F2 et "enter" pour rafraichir.
Merci
"michdenis" a écrit dans le message de news:
u9ubC3%Bonjour Daniel,
Comme ceci :
'---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
'Me.CommandButton6.Caption = [countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 6").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 7").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"3")]
End If
End Sub
'---------------------------
Salutations!
"Daniel" a écrit dans le message de news:
ul8pIy%
Bonjour "michdenis"
oui cela marche
est t'il possible d'avoir le nom et le chiffre sur le bouton.( urgent
3 )
Merci
"michdenis" a écrit dans le message de news:
uCP%Bonjour Daniel,
Ton fichier est là : http://cjoint.com/?ksghWSMkx3
Ce devrait rouler !
Salutations!
"Daniel" a écrit dans le message de news:
Bonsoir "michdenis"
J'ai attacher un fichier , mais je n'arrive pas a le faire fonctionner .
je ne connait pas la procédure pour inclure le chiffre et le nom dans le
bouton.
il y a deux boutons (urgent) pour chiffre 1 et (near urgent) pour 3
Peut tu corriger mon fichier.
http://cjoint.com/?ksfrw5GPeG
Merci
"michdenis" a écrit dans le message de news:Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" a écrit dans le message de news:
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Explique succintement comment tu remplis ta colonne Range("C2:C500") dans
ta feuille de données.
Saisie manuelle, par macro, importation à l'aide d'une ODBC, ADO, DAO, ou
autrement ?
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
ONnogR$0FHA.2132@TK2MSFTNGP15.phx.gbl...
Rebonjour "michdenis"
Oui :-)
Une petite chose ,
Avec une macro j'inporte des donné text et les chiffre des bouton ne
change
pas .
il faut que je tape F2 et "enter" pour rafraichir.
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
u9ubC3%230FHA.3896@TK2MSFTNGP10.phx.gbl...
Bonjour Daniel,
Comme ceci :
'---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
'Me.CommandButton6.Caption = [countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 6").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 7").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"3")]
End If
End Sub
'---------------------------
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
ul8pIy%230FHA.3660@TK2MSFTNGP15.phx.gbl...
Bonjour "michdenis"
oui cela marche
est t'il possible d'avoir le nom et le chiffre sur le bouton.( urgent
3 )
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uCP%23bm50FHA.2076@TK2MSFTNGP14.phx.gbl...
Bonjour Daniel,
Ton fichier est là : http://cjoint.com/?ksghWSMkx3
Ce devrait rouler !
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
uUtGuK50FHA.3336@TK2MSFTNGP12.phx.gbl...
Bonsoir "michdenis"
J'ai attacher un fichier , mais je n'arrive pas a le faire fonctionner .
je ne connait pas la procédure pour inclure le chiffre et le nom dans le
bouton.
il y a deux boutons (urgent) pour chiffre 1 et (near urgent) pour 3
Peut tu corriger mon fichier.
http://cjoint.com/?ksfrw5GPeG
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uDy0ge30FHA.2880@TK2MSFTNGP12.phx.gbl...
Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
eUT6IG30FHA.2932@TK2MSFTNGP10.phx.gbl...
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
Bonjour Daniel,
Explique succintement comment tu remplis ta colonne Range("C2:C500") dans
ta feuille de données.
Saisie manuelle, par macro, importation à l'aide d'une ODBC, ADO, DAO, ou
autrement ?
Salutations!
"Daniel" a écrit dans le message de news:
ONnogR$
Rebonjour "michdenis"
Oui :-)
Une petite chose ,
Avec une macro j'inporte des donné text et les chiffre des bouton ne
change
pas .
il faut que je tape F2 et "enter" pour rafraichir.
Merci
"michdenis" a écrit dans le message de news:
u9ubC3%Bonjour Daniel,
Comme ceci :
'---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
'Me.CommandButton6.Caption = [countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 6").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"1")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 7").OLEFormat.Object.Text = "LeTexte " &
[countif(N2:N500,"3")]
End If
End Sub
'---------------------------
Salutations!
"Daniel" a écrit dans le message de news:
ul8pIy%
Bonjour "michdenis"
oui cela marche
est t'il possible d'avoir le nom et le chiffre sur le bouton.( urgent
3 )
Merci
"michdenis" a écrit dans le message de news:
uCP%Bonjour Daniel,
Ton fichier est là : http://cjoint.com/?ksghWSMkx3
Ce devrait rouler !
Salutations!
"Daniel" a écrit dans le message de news:
Bonsoir "michdenis"
J'ai attacher un fichier , mais je n'arrive pas a le faire fonctionner .
je ne connait pas la procédure pour inclure le chiffre et le nom dans le
bouton.
il y a deux boutons (urgent) pour chiffre 1 et (near urgent) pour 3
Peut tu corriger mon fichier.
http://cjoint.com/?ksfrw5GPeG
Merci
"michdenis" a écrit dans le message de news:Bonjour Daniel,
Copie ceci dans le module feuille où l'action se déroule
à chaque fois que tu vas modifier directement ta plage C2:C500,
le résultat va s'afficher sur le bouton de commande.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
'Bouton issu de la barre d'outils Contrôle
Me.CommandButton1.Caption = [countif(C2:C500,"3")]
'Bouton issu de la barre d'outils "Formulaire
Me.Shapes("Bouton 1").OLEFormat.Object.Text = [countif(C2:C500,"3")]
End If
End Sub
'-----------------------------
Salutations!
"Daniel" a écrit dans le message de news:
Bonjour à Tous
Une petite question ?
J'ai une cellule A1 =NB.SI(C2:C500,"3") qui me donne le nombre de
répétition
d'un champ.
Peut t'on inscrire le résulta sur un bouton.
si oui, Comment?
Merci
