Macro EXCEL
Dernière réponse : dans Le monde de Windows
Bonjour,
Je me lance dans les macros EXCEL et connais très sommairement VB
Je cherche simplement à faire une macro qui va lire le contenu d'une cellule (H3)
Si cette cellule est égale à 0, la macro s'arrête
Si cette cellule contient une adresse (cellule d'une autre feuille, par exemple B100), le curseur doit se positionner dans cette cellule sur la feuille nommées "emplacements")
Fin de la macro
Simple pour quelqu'un qui connait le VB?
Merci pour votre aide
Je me lance dans les macros EXCEL et connais très sommairement VB
Je cherche simplement à faire une macro qui va lire le contenu d'une cellule (H3)
Si cette cellule est égale à 0, la macro s'arrête
Si cette cellule contient une adresse (cellule d'une autre feuille, par exemple B100), le curseur doit se positionner dans cette cellule sur la feuille nommées "emplacements")
Fin de la macro
Simple pour quelqu'un qui connait le VB?
Merci pour votre aide
Autres pages sur : macro excel
Lassé par la pub ? Créez un compte
Bonjour, si j'ai bien compris la question cette macro devrait fonctionner.
Pour info, la macro fonctionne en 7 lignes, les explications se trouvent entre les ***********, bons amusements avec excel![:hello:]( ":hello:")
Sub se_déplacer_dans_cellule_déterminée()
arg1 = Cells(3, 8)
If arg1 > 0 Then
Worksheets("Emplacements").Select
range(arg1).Select
End If
'********************************************************************************'
'on considère que la cellule à trouver est par exemple dans la Feuil1
'mais pour quelle fonctione il faut aussi une Feuil appelée Emplacements
'cells(3, 8) représente la cellule H3 raccourci par un mot de mon choix cela pourrait aussi bien s'appeler toto
'==> le 3 correspondant à la ligne et 8 la colonne soit H (A=1,B=2,....H=8,J=9,...) de la page en cours
' If c'est "si" (la cellule H3 est supérieure à "vide") Then (alors)
'je me positionne dans la page "Emplacements"
' Range = plage en cours soit la ligne et la colonne déterminer / select= aller se positionner
'et attention si tu commences une macro par If ne oublier de la terminer par end if
'et encore moins le End sub
'*************************************************************************'
End Sub
Pour info, la macro fonctionne en 7 lignes, les explications se trouvent entre les ***********, bons amusements avec excel
Sub se_déplacer_dans_cellule_déterminée()
arg1 = Cells(3, 8)
If arg1 > 0 Then
Worksheets("Emplacements").Select
range(arg1).Select
End If
'********************************************************************************'
'on considère que la cellule à trouver est par exemple dans la Feuil1
'mais pour quelle fonctione il faut aussi une Feuil appelée Emplacements
'cells(3, 8) représente la cellule H3 raccourci par un mot de mon choix cela pourrait aussi bien s'appeler toto
'==> le 3 correspondant à la ligne et 8 la colonne soit H (A=1,B=2,....H=8,J=9,...) de la page en cours
' If c'est "si" (la cellule H3 est supérieure à "vide") Then (alors)
'je me positionne dans la page "Emplacements"
' Range = plage en cours soit la ligne et la colonne déterminer / select= aller se positionner
'et attention si tu commences une macro par If ne oublier de la terminer par end if
'et encore moins le End sub
'*************************************************************************'
End Sub
Lassé par la pub ? Créez un compte
- Contenus similaires :
