Dans chaque cellule de la colonne A, j'ai des nombres (de 0 =E0 400) ou=20
des mots.
Je souhaiterais qu'en inscrivant un nombre (ou un mot) dans la cellule=20
G3 et en validant, le tableau "scrolle" jusqu'=E0 la valeur tap=E9e
J'ai essay=E9 avec la fonction "recherche" mais je bute chaque fois sur=20
des probl=E8mes de syntaxe, de : ou de ; qui bloquent tout.
D'autre part, je souhaiterais justement =E9viter de devoir chaque fois=20
utiliser le menu =E9dition, puis rechercher, puis =E9crire, puis fermer..=
=2E
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
JB
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$3" Then On Error Resume Next [A:A].Find(what:=Target, LookIn:=xlValues).Select If Err <> 0 Then MsgBox "inconnu" Else 'ActiveWindow.ScrollRow = ActiveCell.Row End If End If End Sub
JB
On 4 mar, 22:24, "Pierre F." wrote:
Bonjour;
Dans chaque cellule de la colonne A, j'ai des nombres (de 0 à 400) ou des mots.
Je souhaiterais qu'en inscrivant un nombre (ou un mot) dans la cellule G3 et en validant, le tableau "scrolle" jusqu'à la valeur tapée
J'ai essayé avec la fonction "recherche" mais je bute chaque fois sur des problèmes de syntaxe, de : ou de ; qui bloquent tout. D'autre part, je souhaiterais justement éviter de devoir chaque fois utiliser le menu édition, puis rechercher, puis écrire, puis fermer...
Merci.
Cordialement Pierre F.
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$3" Then
On Error Resume Next
[A:A].Find(what:=Target, LookIn:=xlValues).Select
If Err <> 0 Then
MsgBox "inconnu"
Else
'ActiveWindow.ScrollRow = ActiveCell.Row
End If
End If
End Sub
JB
On 4 mar, 22:24, "Pierre F." <pfornero...@SPAMhotmail.com> wrote:
Bonjour;
Dans chaque cellule de la colonne A, j'ai des nombres (de 0 à 400) ou
des mots.
Je souhaiterais qu'en inscrivant un nombre (ou un mot) dans la cellule
G3 et en validant, le tableau "scrolle" jusqu'à la valeur tapée
J'ai essayé avec la fonction "recherche" mais je bute chaque fois sur
des problèmes de syntaxe, de : ou de ; qui bloquent tout.
D'autre part, je souhaiterais justement éviter de devoir chaque fois
utiliser le menu édition, puis rechercher, puis écrire, puis fermer...
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$3" Then On Error Resume Next [A:A].Find(what:=Target, LookIn:=xlValues).Select If Err <> 0 Then MsgBox "inconnu" Else 'ActiveWindow.ScrollRow = ActiveCell.Row End If End If End Sub
JB
On 4 mar, 22:24, "Pierre F." wrote:
Bonjour;
Dans chaque cellule de la colonne A, j'ai des nombres (de 0 à 400) ou des mots.
Je souhaiterais qu'en inscrivant un nombre (ou un mot) dans la cellule G3 et en validant, le tableau "scrolle" jusqu'à la valeur tapée
J'ai essayé avec la fonction "recherche" mais je bute chaque fois sur des problèmes de syntaxe, de : ou de ; qui bloquent tout. D'autre part, je souhaiterais justement éviter de devoir chaque fois utiliser le menu édition, puis rechercher, puis écrire, puis fermer...
Merci.
Cordialement Pierre F.
Pierre F.
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$3" Then On Error Resume Next [A:A].Find(what:=Target, LookIn:=xlValues).Select If Err <> 0 Then MsgBox "inconnu" Else
End If End If End Sub
Merci JB
Je comprends les différents éléments... mais je ne sais comment transformer ça en "macro" liée à un bouton. Lorsque je le copie, il se met dans un module (Worksheet-Change) mais n'apparaît pas dans la liste des macros
Que faire ?
merci
Cordialement, Pierre F.
PS:
LA ligne // 'ActiveWindow.ScrollRow = ActiveCell.Row // fera scroller s i j'enlève l'apostrophe seulement. Oui ?
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$3" Then
On Error Resume Next
[A:A].Find(what:=Target, LookIn:=xlValues).Select
If Err <> 0 Then
MsgBox "inconnu"
Else
End If
End If
End Sub
Merci JB
Je comprends les différents éléments... mais je ne sais comment
transformer ça en "macro" liée à un bouton.
Lorsque je le copie, il se met dans un module (Worksheet-Change) mais
n'apparaît pas dans la liste des macros
Que faire ?
merci
Cordialement,
Pierre F.
PS:
LA ligne // 'ActiveWindow.ScrollRow = ActiveCell.Row // fera scroller s i
j'enlève l'apostrophe seulement. Oui ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$3" Then On Error Resume Next [A:A].Find(what:=Target, LookIn:=xlValues).Select If Err <> 0 Then MsgBox "inconnu" Else
End If End If End Sub
Merci JB
Je comprends les différents éléments... mais je ne sais comment transformer ça en "macro" liée à un bouton. Lorsque je le copie, il se met dans un module (Worksheet-Change) mais n'apparaît pas dans la liste des macros
Que faire ?
merci
Cordialement, Pierre F.
PS:
LA ligne // 'ActiveWindow.ScrollRow = ActiveCell.Row // fera scroller s i j'enlève l'apostrophe seulement. Oui ?
JB
Il n'y a pas de bouton. La macro est déclenchée à la saisie en G3 -Clic droit onglet -Visualiser code
http://cjoint.com/?dexpKKW6we
On peut également mettre dans un module et créer un bouton:
On Error Resume Next [A:A].Find(what:=[G3], LookIn:=xlValues).Select If Err <> 0 Then MsgBox "inconnu" Else ActiveWindow.ScrollRow = ActiveCell.Row End If
JB On 4 mar, 23:04, "Pierre F." wrote:
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$3" Then http://cjoint.com/?dexpKKW6we>
End If End If End Sub
Merci JB
Je comprends les différents éléments... mais je ne sais comment transformer ça en "macro" liée à un bouton. Lorsque je le copie, il se met dans un module (Worksheet-Change) mais n'apparaît pas dans la liste des macros
Que faire ?
merci
Cordialement, Pierre F.
PS:
LA ligne // 'ActiveWindow.ScrollRow = ActiveCell.Row // fera scroller si j'enlève l'apostrophe seulement. Oui ?
Il n'y a pas de bouton. La macro est déclenchée à la saisie en G3
-Clic droit onglet
-Visualiser code
http://cjoint.com/?dexpKKW6we
On peut également mettre dans un module et créer un bouton:
On Error Resume Next
[A:A].Find(what:=[G3], LookIn:=xlValues).Select
If Err <> 0 Then
MsgBox "inconnu"
Else
ActiveWindow.ScrollRow = ActiveCell.Row
End If
JB
On 4 mar, 23:04, "Pierre F." <pfornero...@SPAMhotmail.com> wrote:
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$3" Then
http://cjoint.com/?dexpKKW6we>
End If
End If
End Sub
Merci JB
Je comprends les différents éléments... mais je ne sais comment
transformer ça en "macro" liée à un bouton.
Lorsque je le copie, il se met dans un module (Worksheet-Change) mais
n'apparaît pas dans la liste des macros
Que faire ?
merci
Cordialement,
Pierre F.
PS:
LA ligne // 'ActiveWindow.ScrollRow = ActiveCell.Row // fera scroller si
j'enlève l'apostrophe seulement. Oui ?
Il n'y a pas de bouton. La macro est déclenchée à la saisie en G3 -Clic droit onglet -Visualiser code
http://cjoint.com/?dexpKKW6we
On peut également mettre dans un module et créer un bouton:
On Error Resume Next [A:A].Find(what:=[G3], LookIn:=xlValues).Select If Err <> 0 Then MsgBox "inconnu" Else ActiveWindow.ScrollRow = ActiveCell.Row End If
JB On 4 mar, 23:04, "Pierre F." wrote:
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$3" Then http://cjoint.com/?dexpKKW6we>
End If End If End Sub
Merci JB
Je comprends les différents éléments... mais je ne sais comment transformer ça en "macro" liée à un bouton. Lorsque je le copie, il se met dans un module (Worksheet-Change) mais n'apparaît pas dans la liste des macros
Que faire ?
merci
Cordialement, Pierre F.
PS:
LA ligne // 'ActiveWindow.ScrollRow = ActiveCell.Row // fera scroller si j'enlève l'apostrophe seulement. Oui ?
Pierre F.
Il n'y a pas de bouton. La macro est déclenchée à la saisie en G 3 -Clic droit onglet -Visualiser code
On peut également mettre dans un module et créer un bouton:
On Error Resume Next [A:A].Find(what:=[G3], LookIn:=xlValues).Select If Err <> 0 Then MsgBox "inconnu" Else ActiveWindow.ScrollRow = ActiveCell.Row End If
Magnifique; merci.
Cordialement, Pierre F.
Il n'y a pas de bouton. La macro est déclenchée à la saisie en G 3
-Clic droit onglet
-Visualiser code
On peut également mettre dans un module et créer un bouton:
On Error Resume Next
[A:A].Find(what:=[G3], LookIn:=xlValues).Select
If Err <> 0 Then
MsgBox "inconnu"
Else
ActiveWindow.ScrollRow = ActiveCell.Row
End If
Il n'y a pas de bouton. La macro est déclenchée à la saisie en G 3 -Clic droit onglet -Visualiser code
On peut également mettre dans un module et créer un bouton:
On Error Resume Next [A:A].Find(what:=[G3], LookIn:=xlValues).Select If Err <> 0 Then MsgBox "inconnu" Else ActiveWindow.ScrollRow = ActiveCell.Row End If