Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
garnote
Bonsoir,
Est-ce que cette macro te convient ?
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Address = "$A$1" And Target.Count = 1 Then _ Range("B1:L" & Target).Select End Sub
Serge
"Ceno" a écrit dans le message de news:
Bonsoir à tous,
Je cherche à faire une sélection automatique en fonction du résultat de A1 qui indique le nombre de ligne à sélectionner.
SI en A1 j'ai 3254, je voudrais avoir ma sélection de B1 à L3254 et Si en A1 j ai 8452, je voudrais avoir ma sélection de B1 à L8452 .....
Sachant que A1 change, sinon j'aurais fait simple bien sur
Est-ce possible et si oui comment dois je faire ?
Par avance MERCI
Bonsoir,
Est-ce que cette macro te convient ?
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$1" And Target.Count = 1 Then _
Range("B1:L" & Target).Select
End Sub
Serge
"Ceno" <cedric-box@ifrance.com> a écrit dans le message de news:
d875b85c-0310-48cc-bf71-d873f9e42050@r36g2000prf.googlegroups.com...
Bonsoir à tous,
Je cherche à faire une sélection automatique en fonction du résultat
de A1 qui indique le nombre de ligne à sélectionner.
SI en A1 j'ai 3254, je voudrais avoir ma sélection de B1 à L3254 et
Si en A1 j ai 8452, je voudrais avoir ma sélection de B1 à L8452 .....
Sachant que A1 change, sinon j'aurais fait simple bien sur
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Address = "$A$1" And Target.Count = 1 Then _ Range("B1:L" & Target).Select End Sub
Serge
"Ceno" a écrit dans le message de news:
Bonsoir à tous,
Je cherche à faire une sélection automatique en fonction du résultat de A1 qui indique le nombre de ligne à sélectionner.
SI en A1 j'ai 3254, je voudrais avoir ma sélection de B1 à L3254 et Si en A1 j ai 8452, je voudrais avoir ma sélection de B1 à L8452 .....
Sachant que A1 change, sinon j'aurais fait simple bien sur
Est-ce possible et si oui comment dois je faire ?
Par avance MERCI
Ceno
je te remercie pour ta réponse, mais je ne comprends pas je dois écrire ce code dans un module de vb c'est bien ça ?
je te remercie pour ta réponse, mais je ne comprends pas je dois
écrire ce code dans un module de vb c'est bien ça ?
je te remercie pour ta réponse, mais je ne comprends pas je dois écrire ce code dans un module de vb c'est bien ça ?
michdenis
Un clic droit sur l'onglet de la feuille où l'action se déroule, sélectionne la commande "Visualiser le code"
et tu colles le code suivant dans la grande page blanche
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Address = "$A$1" And Target.Count = 1 Then if isnumeric(target) then if target > 0 then Range("B1:L" & Target).Select end if end if end if End Sub
"Ceno" a écrit dans le message de news:
je te remercie pour ta réponse, mais je ne comprends pas je dois écrire ce code dans un module de vb c'est bien ça ?
Un clic droit sur l'onglet de la feuille où l'action se déroule,
sélectionne la commande "Visualiser le code"
et tu colles le code suivant dans la grande page blanche
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$1" And Target.Count = 1 Then
if isnumeric(target) then
if target > 0 then
Range("B1:L" & Target).Select
end if
end if
end if
End Sub
"Ceno" <cedric-box@ifrance.com> a écrit dans le message de news:
fc2b1fdf-1663-4c4c-9265-dda5e57f1216@q30g2000prq.googlegroups.com...
je te remercie pour ta réponse, mais je ne comprends pas je dois
écrire ce code dans un module de vb c'est bien ça ?
Un clic droit sur l'onglet de la feuille où l'action se déroule, sélectionne la commande "Visualiser le code"
et tu colles le code suivant dans la grande page blanche
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Address = "$A$1" And Target.Count = 1 Then if isnumeric(target) then if target > 0 then Range("B1:L" & Target).Select end if end if end if End Sub
"Ceno" a écrit dans le message de news:
je te remercie pour ta réponse, mais je ne comprends pas je dois écrire ce code dans un module de vb c'est bien ça ?
Ceno
Bonsoir michdenis et merci de me répondre, mais je ne comprends comment je fais pour déclencher cette macro ensuite ????
Encore merci.
Cédric
Bonsoir michdenis et merci de me répondre, mais je ne comprends
comment je fais pour déclencher cette macro ensuite ????
Bonsoir michdenis et merci de me répondre, mais je ne comprends comment je fais pour déclencher cette macro ensuite ????
Encore merci.
Cédric
michdenis
Dès que tu modifIeras la valeur de la cellule A1 en TAPANT la nouvelle donnée dans la feuille, la macro se déclenchera toute seule.
"Ceno" a écrit dans le message de news:
Bonsoir michdenis et merci de me répondre, mais je ne comprends comment je fais pour déclencher cette macro ensuite ????
Encore merci.
Cédric
Dès que tu modifIeras la valeur de la cellule A1 en TAPANT
la nouvelle donnée dans la feuille, la macro se déclenchera
toute seule.
"Ceno" <cedric-box@ifrance.com> a écrit dans le message de news:
21fa63e7-4859-41ca-bd25-197d73b774da@l33g2000pri.googlegroups.com...
Bonsoir michdenis et merci de me répondre, mais je ne comprends
comment je fais pour déclencher cette macro ensuite ????
Dès que tu modifIeras la valeur de la cellule A1 en TAPANT la nouvelle donnée dans la feuille, la macro se déclenchera toute seule.
"Ceno" a écrit dans le message de news:
Bonsoir michdenis et merci de me répondre, mais je ne comprends comment je fais pour déclencher cette macro ensuite ????
Encore merci.
Cédric
michdenis
SI a1 contient une formule, si le résultat de la formule cela sera aussi suffisant pour lancer la procédure événementielle.
"Ceno" a écrit dans le message de news:
Bonsoir michdenis et merci de me répondre, mais je ne comprends comment je fais pour déclencher cette macro ensuite ????
Encore merci.
Cédric
SI a1 contient une formule, si le résultat de la formule
cela sera aussi suffisant pour lancer la procédure événementielle.
"Ceno" <cedric-box@ifrance.com> a écrit dans le message de news:
21fa63e7-4859-41ca-bd25-197d73b774da@l33g2000pri.googlegroups.com...
Bonsoir michdenis et merci de me répondre, mais je ne comprends
comment je fais pour déclencher cette macro ensuite ????
SI a1 contient une formule, si le résultat de la formule cela sera aussi suffisant pour lancer la procédure événementielle.
"Ceno" a écrit dans le message de news:
Bonsoir michdenis et merci de me répondre, mais je ne comprends comment je fais pour déclencher cette macro ensuite ????
Encore merci.
Cédric
Ceno
Bonjour Michdenis,
Et merci, cela fonctionne bien si je change la valeur de A1, mais avec une formule en A1 qui fait A2+A3, le total se met en A1 mais n'exécute pas la macro, que dois-je faire encore merci.
Cédric
Bonjour Michdenis,
Et merci, cela fonctionne bien si je change la valeur de A1, mais avec
une formule en A1 qui fait A2+A3, le total se met en A1 mais n'exécute
pas la macro, que dois-je faire encore merci.
Et merci, cela fonctionne bien si je change la valeur de A1, mais avec une formule en A1 qui fait A2+A3, le total se met en A1 mais n'exécute pas la macro, que dois-je faire encore merci.
Cédric
michdenis
Oui, tu as raison, cela dépend des versions. dans la version Excel 2003 et 2007, l'événement est déclenché même si la cellule A1 contient une formule mais ce n'est pas vrai pour toutes les versions!
Tu peux remplacer par ceci :
Tu remplaces le code du message précédent par ceci que tu places au même endroit. '------------------------------------------------- Private Sub Worksheet_Calculate() With Range("A1") ww = [toto] If [toto] <> .Value Then If IsNumeric(.Value) Then If .Value > 0 Then Range("B1:L" & .Value).Select End If End If End If End With Names.Add "toto", Range("A1").Value, False End Sub '-------------------------------------------------
Tu vas devoir ajouter ceci dans l'objet "ThisWorkbook" de ton classeur. Tu le trouveras dans la fenêtre de l'éditeur de code dans l'arborescence de la section VBAproject(NomDuClasseur) tu double-cliques sur le ThisWorkbook et dans la page blanche tu copies le code suivant : '------------------------------------------------ Private Sub Workbook_Open() Names.Add "toto", Range("A1").Value, False End Sub '------------------------------------------------
Ferme ton classeur en l'enregistrement et à sa ré-ouverture ce que tu veux devrait fonctionner !
"Ceno" a écrit dans le message de news:
Bonjour Michdenis,
Et merci, cela fonctionne bien si je change la valeur de A1, mais avec une formule en A1 qui fait A2+A3, le total se met en A1 mais n'exécute pas la macro, que dois-je faire encore merci.
Cédric
Oui, tu as raison, cela dépend des versions.
dans la version Excel 2003 et 2007, l'événement
est déclenché même si la cellule A1 contient une
formule mais ce n'est pas vrai pour toutes les versions!
Tu peux remplacer par ceci :
Tu remplaces le code du message précédent par ceci
que tu places au même endroit.
'-------------------------------------------------
Private Sub Worksheet_Calculate()
With Range("A1")
ww = [toto]
If [toto] <> .Value Then
If IsNumeric(.Value) Then
If .Value > 0 Then
Range("B1:L" & .Value).Select
End If
End If
End If
End With
Names.Add "toto", Range("A1").Value, False
End Sub
'-------------------------------------------------
Tu vas devoir ajouter ceci dans l'objet "ThisWorkbook"
de ton classeur. Tu le trouveras dans la fenêtre de l'éditeur
de code dans l'arborescence de la section VBAproject(NomDuClasseur)
tu double-cliques sur le ThisWorkbook et dans la page blanche tu copies
le code suivant :
'------------------------------------------------
Private Sub Workbook_Open()
Names.Add "toto", Range("A1").Value, False
End Sub
'------------------------------------------------
Ferme ton classeur en l'enregistrement et à sa ré-ouverture ce que tu veux
devrait fonctionner !
"Ceno" <cedric-box@ifrance.com> a écrit dans le message de news:
e3c5db0a-f615-4f8b-bef8-b2890a6b037a@i24g2000prf.googlegroups.com...
Bonjour Michdenis,
Et merci, cela fonctionne bien si je change la valeur de A1, mais avec
une formule en A1 qui fait A2+A3, le total se met en A1 mais n'exécute
pas la macro, que dois-je faire encore merci.
Oui, tu as raison, cela dépend des versions. dans la version Excel 2003 et 2007, l'événement est déclenché même si la cellule A1 contient une formule mais ce n'est pas vrai pour toutes les versions!
Tu peux remplacer par ceci :
Tu remplaces le code du message précédent par ceci que tu places au même endroit. '------------------------------------------------- Private Sub Worksheet_Calculate() With Range("A1") ww = [toto] If [toto] <> .Value Then If IsNumeric(.Value) Then If .Value > 0 Then Range("B1:L" & .Value).Select End If End If End If End With Names.Add "toto", Range("A1").Value, False End Sub '-------------------------------------------------
Tu vas devoir ajouter ceci dans l'objet "ThisWorkbook" de ton classeur. Tu le trouveras dans la fenêtre de l'éditeur de code dans l'arborescence de la section VBAproject(NomDuClasseur) tu double-cliques sur le ThisWorkbook et dans la page blanche tu copies le code suivant : '------------------------------------------------ Private Sub Workbook_Open() Names.Add "toto", Range("A1").Value, False End Sub '------------------------------------------------
Ferme ton classeur en l'enregistrement et à sa ré-ouverture ce que tu veux devrait fonctionner !
"Ceno" a écrit dans le message de news:
Bonjour Michdenis,
Et merci, cela fonctionne bien si je change la valeur de A1, mais avec une formule en A1 qui fait A2+A3, le total se met en A1 mais n'exécute pas la macro, que dois-je faire encore merci.
Cédric
Ceno
Ok merci trop bien, ça marche super, je suis trop heureux, merci pour tout.
Ok merci trop bien, ça marche super, je suis trop heureux, merci pour
tout.
