Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Macro Visual Basic - Excel

Macro Visual Basic - Excel

8 réponses
Avatar
William
Bonjour,

Je souhaiterai faire un petit programme en Basic, pour exécuter la macro
suivante :

Soit un chiffre saisie dans la cellule A1 >
A
1 10

Je voudrais que ma macro puisse sélectionner la ligne 10 de ma feuille.

Autre exemple, si cette fois, le nombre est 20, la macro devra sélectionner
la ligne 20 de ma feuille...

avez vous une idée ?

Merci d'avance.

William.
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
Jacquouille
Bonsoir
A copier dans le code de la feuille ou dans le this workbook
-------------
Sub sélectionner_ligne()
'
' sélectionner_ligne Macro
Dim n As Variant
n = [A1] 'Merci Cap'tain Crochet
MsgBox n
Rows(n).Select
End Sub
------------------
Maintenant, tu n'es pas obligé de passer par la cel A1. Tu peux faire un
Inputes box dont la réponse sera n
Bonne chance
--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.

"William" a écrit dans le message de
news:
Bonjour,

Je souhaiterai faire un petit programme en Basic, pour exécuter la macro
suivante :

Soit un chiffre saisie dans la cellule A1 >
A
1 10

Je voudrais que ma macro puisse sélectionner la ligne 10 de ma feuille.

Autre exemple, si cette fois, le nombre est 20, la macro devra
sélectionner

la ligne 20 de ma feuille...

avez vous une idée ?

Merci d'avance.

William.




Avatar
LeSteph
Bonsoir William,
A peine plus simple F5
10:10
ok
---
sinon
Copier ceci:
'*****
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errh
Dim isect As Range
Set isect = Intersect(Target, Range("a:a"))
If isect Is Nothing Or Target.Value = "" Then
Exit Sub
Else

If IsNumeric(Target) Then
Rows(Int(Target)).EntireRow.Hidden = True
End If
End If
errh:
End Sub

'******
puis
alt+f11, Ctrl+r
Dblclic dans l'explorateur de projet sur Feuil1
Coller dans le module de Feuil1
fermer vba saisir en colonne A

lSteph

"William" a écrit dans le message de news:

Bonjour,

Je souhaiterai faire un petit programme en Basic, pour exécuter la macro
suivante :

Soit un chiffre saisie dans la cellule A1 >
A
1 10

Je voudrais que ma macro puisse sélectionner la ligne 10 de ma feuille.

Autre exemple, si cette fois, le nombre est 20, la macro devra
sélectionner
la ligne 20 de ma feuille...

avez vous une idée ?

Merci d'avance.

William.




Avatar
LeSteph
oupss..
je t'ai fait un macro pour masquer
alors que tu voulais juste sélectionner, voici:
'***
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errh
Dim isect As Range
Set isect = Intersect(Target, Range("a:a"))
If isect Is Nothing Or Target.Value = "" Then
Exit Sub
Else

If IsNumeric(Target) Then
Rows(Int(Target)).select
End If
End If
errh:
End Sub
'***
"LeSteph" a écrit dans le message de news:

Bonsoir William,
A peine plus simple F5
10:10
ok
---
sinon
Copier ceci:
'*****
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errh
Dim isect As Range
Set isect = Intersect(Target, Range("a:a"))
If isect Is Nothing Or Target.Value = "" Then
Exit Sub
Else

If IsNumeric(Target) Then
Rows(Int(Target)).EntireRow.Hidden = True
End If
End If
errh:
End Sub

'******
puis
alt+f11, Ctrl+r
Dblclic dans l'explorateur de projet sur Feuil1
Coller dans le module de Feuil1
fermer vba saisir en colonne A

lSteph

"William" a écrit dans le message de news:

Bonjour,

Je souhaiterai faire un petit programme en Basic, pour exécuter la macro
suivante :

Soit un chiffre saisie dans la cellule A1 >
A
1 10

Je voudrais que ma macro puisse sélectionner la ligne 10 de ma feuille.

Autre exemple, si cette fois, le nombre est 20, la macro devra
sélectionner
la ligne 20 de ma feuille...

avez vous une idée ?

Merci d'avance.

William.








Avatar
Jacquouille
Bonjour
Tu peux expliquer à mon neurone, steplé?
A peine plus simple F5
10:10
ok


Merci et bonne fin de journée.
--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.

"LeSteph" a écrit dans le message de
news:
Bonsoir William,
A peine plus simple F5
10:10
ok
---
sinon
Copier ceci:
'*****
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errh
Dim isect As Range
Set isect = Intersect(Target, Range("a:a"))
If isect Is Nothing Or Target.Value = "" Then
Exit Sub
Else

If IsNumeric(Target) Then
Rows(Int(Target)).EntireRow.Hidden = True
End If
End If
errh:
End Sub

'******
puis
alt+f11, Ctrl+r
Dblclic dans l'explorateur de projet sur Feuil1
Coller dans le module de Feuil1
fermer vba saisir en colonne A

lSteph

"William" a écrit dans le message de news:

Bonjour,

Je souhaiterai faire un petit programme en Basic, pour exécuter la macro
suivante :

Soit un chiffre saisie dans la cellule A1 >
A
1 10

Je voudrais que ma macro puisse sélectionner la ligne 10 de ma feuille.

Autre exemple, si cette fois, le nombre est 20, la macro devra
sélectionner
la ligne 20 de ma feuille...

avez vous une idée ?

Merci d'avance.

William.








Avatar
LeSteph
:-))

le neurone crie appuie sur la touche f5 (Edition Atteindre)
quand le doigt a terminé le neurone crie à nouveau appuie sur tout ceci
consécutivement 10:10
puis ok (ou entrée)

et c'est magique la ligne 10 est sélectionnée

lSteph
..
"Jacquouille" a écrit dans le message de
news:
Bonjour
Tu peux expliquer à mon neurone, steplé?
A peine plus simple F5
10:10
ok


Merci et bonne fin de journée.
--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.

"LeSteph" a écrit dans le message de
news:
Bonsoir William,
A peine plus simple F5
10:10
ok
---
sinon
Copier ceci:
'*****
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errh
Dim isect As Range
Set isect = Intersect(Target, Range("a:a"))
If isect Is Nothing Or Target.Value = "" Then
Exit Sub
Else

If IsNumeric(Target) Then
Rows(Int(Target)).EntireRow.Hidden = True
End If
End If
errh:
End Sub

'******
puis
alt+f11, Ctrl+r
Dblclic dans l'explorateur de projet sur Feuil1
Coller dans le module de Feuil1
fermer vba saisir en colonne A

lSteph

"William" a écrit dans le message de news:

Bonjour,

Je souhaiterai faire un petit programme en Basic, pour exécuter la
macro
suivante :

Soit un chiffre saisie dans la cellule A1 >
A
1 10

Je voudrais que ma macro puisse sélectionner la ligne 10 de ma feuille.

Autre exemple, si cette fois, le nombre est 20, la macro devra
sélectionner
la ligne 20 de ma feuille...

avez vous une idée ?

Merci d'avance.

William.












Avatar
LeSteph
...et bonne soirée à toi.

"LeSteph" a écrit dans le message de news:
uP%
:-))

le neurone crie appuie sur la touche f5 (Edition Atteindre)
quand le doigt a terminé le neurone crie à nouveau appuie sur tout ceci
consécutivement 10:10
puis ok (ou entrée)

et c'est magique la ligne 10 est sélectionnée

lSteph
..
"Jacquouille" a écrit dans le message de
news:
Bonjour
Tu peux expliquer à mon neurone, steplé?
A peine plus simple F5
10:10
ok


Merci et bonne fin de journée.
--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.

"LeSteph" a écrit dans le message de
news:
Bonsoir William,
A peine plus simple F5
10:10
ok
---
sinon
Copier ceci:
'*****
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errh
Dim isect As Range
Set isect = Intersect(Target, Range("a:a"))
If isect Is Nothing Or Target.Value = "" Then
Exit Sub
Else

If IsNumeric(Target) Then
Rows(Int(Target)).EntireRow.Hidden = True
End If
End If
errh:
End Sub

'******
puis
alt+f11, Ctrl+r
Dblclic dans l'explorateur de projet sur Feuil1
Coller dans le module de Feuil1
fermer vba saisir en colonne A

lSteph

"William" a écrit dans le message de news:

Bonjour,

Je souhaiterai faire un petit programme en Basic, pour exécuter la
macro
suivante :

Soit un chiffre saisie dans la cellule A1 >
A
1 10

Je voudrais que ma macro puisse sélectionner la ligne 10 de ma
feuille.

Autre exemple, si cette fois, le nombre est 20, la macro devra
sélectionner
la ligne 20 de ma feuille...

avez vous une idée ?

Merci d'avance.

William.
















Avatar
Jacquouille
Salut
Tu as oublié de préciser qu'il fallait un neurone reposé, frais et dispos.
Le mien, il cherchait du côté 10:10 = 10 hr 10 min ??-))

--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.

"LeSteph" a écrit dans le message de
news:uP%
:-))

le neurone crie appuie sur la touche f5 (Edition Atteindre)
quand le doigt a terminé le neurone crie à nouveau appuie sur tout ceci
consécutivement 10:10
puis ok (ou entrée)

et c'est magique la ligne 10 est sélectionnée

lSteph
..
"Jacquouille" a écrit dans le message de
news:
Bonjour
Tu peux expliquer à mon neurone, steplé?
A peine plus simple F5
10:10
ok


Merci et bonne fin de journée.
--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.

"LeSteph" a écrit dans le message de
news:
Bonsoir William,
A peine plus simple F5
10:10
ok
---
sinon
Copier ceci:
'*****
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errh
Dim isect As Range
Set isect = Intersect(Target, Range("a:a"))
If isect Is Nothing Or Target.Value = "" Then
Exit Sub
Else

If IsNumeric(Target) Then
Rows(Int(Target)).EntireRow.Hidden = True
End If
End If
errh:
End Sub

'******
puis
alt+f11, Ctrl+r
Dblclic dans l'explorateur de projet sur Feuil1
Coller dans le module de Feuil1
fermer vba saisir en colonne A

lSteph

"William" a écrit dans le message de news:

Bonjour,

Je souhaiterai faire un petit programme en Basic, pour exécuter la
macro
suivante :

Soit un chiffre saisie dans la cellule A1 >
A
1 10

Je voudrais que ma macro puisse sélectionner la ligne 10 de ma
feuille.





Autre exemple, si cette fois, le nombre est 20, la macro devra
sélectionner
la ligne 20 de ma feuille...

avez vous une idée ?

Merci d'avance.

William.
















Avatar
LeSteph
Bonsoir Jacquouille
ah que le mien était trop usé ce soir là pour evisager cela!
:=))))
à bientôt

lSteph


"Jacquouille" a écrit dans le message de
news:
Salut
Tu as oublié de préciser qu'il fallait un neurone reposé, frais et dispos.
Le mien, il cherchait du côté 10:10 = 10 hr 10 min ??-))

--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.

"LeSteph" a écrit dans le message de
news:uP%
:-))

le neurone crie appuie sur la touche f5 (Edition Atteindre)
quand le doigt a terminé le neurone crie à nouveau appuie sur tout ceci
consécutivement 10:10
puis ok (ou entrée)

et c'est magique la ligne 10 est sélectionnée

lSteph
..
"Jacquouille" a écrit dans le message de
news:
Bonjour
Tu peux expliquer à mon neurone, steplé?
A peine plus simple F5
10:10
ok


Merci et bonne fin de journée.
--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.

"LeSteph" a écrit dans le message de
news:
Bonsoir William,
A peine plus simple F5
10:10
ok
---
sinon
Copier ceci:
'*****
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errh
Dim isect As Range
Set isect = Intersect(Target, Range("a:a"))
If isect Is Nothing Or Target.Value = "" Then
Exit Sub
Else

If IsNumeric(Target) Then
Rows(Int(Target)).EntireRow.Hidden = True
End If
End If
errh:
End Sub

'******
puis
alt+f11, Ctrl+r
Dblclic dans l'explorateur de projet sur Feuil1
Coller dans le module de Feuil1
fermer vba saisir en colonne A

lSteph

"William" a écrit dans le message de news:

Bonjour,

Je souhaiterai faire un petit programme en Basic, pour exécuter la
macro
suivante :

Soit un chiffre saisie dans la cellule A1 >
A
1 10

Je voudrais que ma macro puisse sélectionner la ligne 10 de ma
feuille.





Autre exemple, si cette fois, le nombre est 20, la macro devra
sélectionner
la ligne 20 de ma feuille...

avez vous une idée ?

Merci d'avance.

William.