Bonjour à tous et toutes,
J'ai fais la macro suivante :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$29" Then Exit Sub
Application.ScreenUpdating = False
If [A29] <> "" Then
Range("A" & Range("A29").End(xlDown).Row + 4).Select
End If
End Sub
Mais elle ne marche pas. En fait je voudrais que lorsque la cellule A29 de
ma feuille n'est pas vide l'instruction suivante :
Range("A" & Range("A29").End(xlDown).Row + 4).Select
se fasse mais je n'y arrive pas. Je suppose que ça na doit pas être très dur
à faire mais comme je n'y connais pas grand chose je tatonne beaucoup pour
peu de résultats.
Est ce qu'une âme charitable pourrait m'aider parce que j'ai beau chercher
un peu partout je ne trouve pas (peut être que je fais mal la recherche
d'info aussi).
Merci d'avance et bon week end à tout le monde
Béatrice
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
papou
Bonjour Aucune erreur là-dessus à part le fait qu'il te faut rajouter un Application.screenuptdating=true Cordialement Pascal
"beatrice" a écrit dans le message de news:
Bonjour à tous et toutes, J'ai fais la macro suivante : Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$29" Then Exit Sub Application.ScreenUpdating = False
If [A29] <> "" Then Range("A" & Range("A29").End(xlDown).Row + 4).Select End If
End Sub Mais elle ne marche pas. En fait je voudrais que lorsque la cellule A29 de ma feuille n'est pas vide l'instruction suivante : Range("A" & Range("A29").End(xlDown).Row + 4).Select se fasse mais je n'y arrive pas. Je suppose que ça na doit pas être très dur à faire mais comme je n'y connais pas grand chose je tatonne beaucoup pour peu de résultats. Est ce qu'une âme charitable pourrait m'aider parce que j'ai beau chercher un peu partout je ne trouve pas (peut être que je fais mal la recherche d'info aussi). Merci d'avance et bon week end à tout le monde Béatrice
Bonjour
Aucune erreur là-dessus à part le fait qu'il te faut rajouter un
Application.screenuptdating=true
Cordialement
Pascal
"beatrice" <beatrice@discussions.microsoft.com> a écrit dans le message de
news: CB603A13-D47A-4D3A-BB07-7E8D65A36336@microsoft.com...
Bonjour à tous et toutes,
J'ai fais la macro suivante :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$29" Then Exit Sub
Application.ScreenUpdating = False
If [A29] <> "" Then
Range("A" & Range("A29").End(xlDown).Row + 4).Select
End If
End Sub
Mais elle ne marche pas. En fait je voudrais que lorsque la cellule A29
de
ma feuille n'est pas vide l'instruction suivante :
Range("A" & Range("A29").End(xlDown).Row + 4).Select
se fasse mais je n'y arrive pas. Je suppose que ça na doit pas être très
dur
à faire mais comme je n'y connais pas grand chose je tatonne beaucoup pour
peu de résultats.
Est ce qu'une âme charitable pourrait m'aider parce que j'ai beau chercher
un peu partout je ne trouve pas (peut être que je fais mal la recherche
d'info aussi).
Merci d'avance et bon week end à tout le monde
Béatrice
Bonjour Aucune erreur là-dessus à part le fait qu'il te faut rajouter un Application.screenuptdating=true Cordialement Pascal
"beatrice" a écrit dans le message de news:
Bonjour à tous et toutes, J'ai fais la macro suivante : Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$29" Then Exit Sub Application.ScreenUpdating = False
If [A29] <> "" Then Range("A" & Range("A29").End(xlDown).Row + 4).Select End If
End Sub Mais elle ne marche pas. En fait je voudrais que lorsque la cellule A29 de ma feuille n'est pas vide l'instruction suivante : Range("A" & Range("A29").End(xlDown).Row + 4).Select se fasse mais je n'y arrive pas. Je suppose que ça na doit pas être très dur à faire mais comme je n'y connais pas grand chose je tatonne beaucoup pour peu de résultats. Est ce qu'une âme charitable pourrait m'aider parce que j'ai beau chercher un peu partout je ne trouve pas (peut être que je fais mal la recherche d'info aussi). Merci d'avance et bon week end à tout le monde Béatrice
Jacky
Bonsoir Béatrice
Si ce sont les 4 cellules sous A29 qui doivent être sélectionnées la syntaxe serait
Bonjour à tous et toutes, J'ai fais la macro suivante : Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$29" Then Exit Sub Application.ScreenUpdating = False
If [A29] <> "" Then Range("A" & Range("A29").End(xlDown).Row + 4).Select End If
End Sub Mais elle ne marche pas. En fait je voudrais que lorsque la cellule A29 de
ma feuille n'est pas vide l'instruction suivante : Range("A" & Range("A29").End(xlDown).Row + 4).Select se fasse mais je n'y arrive pas. Je suppose que ça na doit pas être très dur
à faire mais comme je n'y connais pas grand chose je tatonne beaucoup pour peu de résultats. Est ce qu'une âme charitable pourrait m'aider parce que j'ai beau chercher un peu partout je ne trouve pas (peut être que je fais mal la recherche d'info aussi). Merci d'avance et bon week end à tout le monde Béatrice
Bonsoir Béatrice
Si ce sont les 4 cellules sous A29 qui doivent être sélectionnées la syntaxe
serait
"beatrice" <beatrice@discussions.microsoft.com> a écrit dans le message de
news:CB603A13-D47A-4D3A-BB07-7E8D65A36336@microsoft.com...
Bonjour à tous et toutes,
J'ai fais la macro suivante :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$29" Then Exit Sub
Application.ScreenUpdating = False
If [A29] <> "" Then
Range("A" & Range("A29").End(xlDown).Row + 4).Select
End If
End Sub
Mais elle ne marche pas. En fait je voudrais que lorsque la cellule A29
de
ma feuille n'est pas vide l'instruction suivante :
Range("A" & Range("A29").End(xlDown).Row + 4).Select
se fasse mais je n'y arrive pas. Je suppose que ça na doit pas être très
dur
à faire mais comme je n'y connais pas grand chose je tatonne beaucoup pour
peu de résultats.
Est ce qu'une âme charitable pourrait m'aider parce que j'ai beau chercher
un peu partout je ne trouve pas (peut être que je fais mal la recherche
d'info aussi).
Merci d'avance et bon week end à tout le monde
Béatrice
Bonjour à tous et toutes, J'ai fais la macro suivante : Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$29" Then Exit Sub Application.ScreenUpdating = False
If [A29] <> "" Then Range("A" & Range("A29").End(xlDown).Row + 4).Select End If
End Sub Mais elle ne marche pas. En fait je voudrais que lorsque la cellule A29 de
ma feuille n'est pas vide l'instruction suivante : Range("A" & Range("A29").End(xlDown).Row + 4).Select se fasse mais je n'y arrive pas. Je suppose que ça na doit pas être très dur
à faire mais comme je n'y connais pas grand chose je tatonne beaucoup pour peu de résultats. Est ce qu'une âme charitable pourrait m'aider parce que j'ai beau chercher un peu partout je ne trouve pas (peut être que je fais mal la recherche d'info aussi). Merci d'avance et bon week end à tout le monde Béatrice
Jacky
Re... Si c'est la 4 ème sous la dernière cellules non vide, celle-ci
Bonjour à tous et toutes, J'ai fais la macro suivante : Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$29" Then Exit Sub Application.ScreenUpdating = False
If [A29] <> "" Then Range("A" & Range("A29").End(xlDown).Row + 4).Select End If
End Sub Mais elle ne marche pas. En fait je voudrais que lorsque la cellule A29 de
ma feuille n'est pas vide l'instruction suivante : Range("A" & Range("A29").End(xlDown).Row + 4).Select se fasse mais je n'y arrive pas. Je suppose que ça na doit pas être très dur
à faire mais comme je n'y connais pas grand chose je tatonne beaucoup pour
peu de résultats. Est ce qu'une âme charitable pourrait m'aider parce que j'ai beau chercher
un peu partout je ne trouve pas (peut être que je fais mal la recherche d'info aussi). Merci d'avance et bon week end à tout le monde Béatrice
Re...
Si c'est la 4 ème sous la dernière cellules non vide, celle-ci
"beatrice" <beatrice@discussions.microsoft.com> a écrit dans le message de
news:CB603A13-D47A-4D3A-BB07-7E8D65A36336@microsoft.com...
Bonjour à tous et toutes,
J'ai fais la macro suivante :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$29" Then Exit Sub
Application.ScreenUpdating = False
If [A29] <> "" Then
Range("A" & Range("A29").End(xlDown).Row + 4).Select
End If
End Sub
Mais elle ne marche pas. En fait je voudrais que lorsque la cellule A29
de
ma feuille n'est pas vide l'instruction suivante :
Range("A" & Range("A29").End(xlDown).Row + 4).Select
se fasse mais je n'y arrive pas. Je suppose que ça na doit pas être très
dur
à faire mais comme je n'y connais pas grand chose je tatonne beaucoup
pour
peu de résultats.
Est ce qu'une âme charitable pourrait m'aider parce que j'ai beau
chercher
un peu partout je ne trouve pas (peut être que je fais mal la recherche
d'info aussi).
Merci d'avance et bon week end à tout le monde
Béatrice
Bonjour à tous et toutes, J'ai fais la macro suivante : Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$29" Then Exit Sub Application.ScreenUpdating = False
If [A29] <> "" Then Range("A" & Range("A29").End(xlDown).Row + 4).Select End If
End Sub Mais elle ne marche pas. En fait je voudrais que lorsque la cellule A29 de
ma feuille n'est pas vide l'instruction suivante : Range("A" & Range("A29").End(xlDown).Row + 4).Select se fasse mais je n'y arrive pas. Je suppose que ça na doit pas être très dur
à faire mais comme je n'y connais pas grand chose je tatonne beaucoup pour
peu de résultats. Est ce qu'une âme charitable pourrait m'aider parce que j'ai beau chercher
un peu partout je ne trouve pas (peut être que je fais mal la recherche d'info aussi). Merci d'avance et bon week end à tout le monde Béatrice
