Bonsoir,
Comment puis je demander en VBA : si il n'y a rien en A3 alors positionne
toi dessus sinon fais cette macro...
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
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
Didier Novarin
Slut
Sub test() If Range("A3").Value = "" Then Range("A3").Select Else Range("A2").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select End If End Sub
Didier
"Manu" a écrit dans le message de news:
Bonsoir, Comment puis je demander en VBA : si il n'y a rien en A3 alors positionne toi dessus sinon fais cette macro... Range("A2").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select
Merci
Manu
Slut
Sub test()
If Range("A3").Value = "" Then
Range("A3").Select
Else
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
End If
End Sub
Didier
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
OlRR9221GHA.328@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Comment puis je demander en VBA : si il n'y a rien en A3 alors positionne
toi dessus sinon fais cette macro...
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Sub test() If Range("A3").Value = "" Then Range("A3").Select Else Range("A2").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select End If End Sub
Didier
"Manu" a écrit dans le message de news:
Bonsoir, Comment puis je demander en VBA : si il n'y a rien en A3 alors positionne toi dessus sinon fais cette macro... Range("A2").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select
Merci
Manu
Jacky
Bonsoir,
Ceci peut-être: '------- Sub jj() Application.ScreenUpdating = False Range("a65536").End(3)(2).Select If [a3] = "" Then [a3].Select End Sub '-------- Salutations JJ
"Manu" a écrit dans le message de news:
Bonsoir, Comment puis je demander en VBA : si il n'y a rien en A3 alors positionne toi dessus sinon fais cette macro... Range("A2").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select
Merci
Manu
Bonsoir,
Ceci peut-être:
'-------
Sub jj()
Application.ScreenUpdating = False
Range("a65536").End(3)(2).Select
If [a3] = "" Then [a3].Select
End Sub
'--------
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de
news:OlRR9221GHA.328@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Comment puis je demander en VBA : si il n'y a rien en A3 alors positionne
toi dessus sinon fais cette macro...
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Ceci peut-être: '------- Sub jj() Application.ScreenUpdating = False Range("a65536").End(3)(2).Select If [a3] = "" Then [a3].Select End Sub '-------- Salutations JJ
"Manu" a écrit dans le message de news:
Bonsoir, Comment puis je demander en VBA : si il n'y a rien en A3 alors positionne toi dessus sinon fais cette macro... Range("A2").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select
Merci
Manu
Manu
Merci, ca fonctionne nickel Manu
"Jacky" a écrit dans le message de news:
Bonsoir,
Ceci peut-être: '------- Sub jj() Application.ScreenUpdating = False Range("a65536").End(3)(2).Select If [a3] = "" Then [a3].Select End Sub '-------- Salutations JJ
"Manu" a écrit dans le message de news:
Bonsoir, Comment puis je demander en VBA : si il n'y a rien en A3 alors positionne toi dessus sinon fais cette macro... Range("A2").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select
Merci
Manu
Merci, ca fonctionne nickel
Manu
"Jacky" <nospams@non.com> a écrit dans le message de news:
uKRPmN31GHA.4300@TK2MSFTNGP03.phx.gbl...
Bonsoir,
Ceci peut-être:
'-------
Sub jj()
Application.ScreenUpdating = False
Range("a65536").End(3)(2).Select
If [a3] = "" Then [a3].Select
End Sub
'--------
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de
news:OlRR9221GHA.328@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Comment puis je demander en VBA : si il n'y a rien en A3 alors positionne
toi dessus sinon fais cette macro...
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Ceci peut-être: '------- Sub jj() Application.ScreenUpdating = False Range("a65536").End(3)(2).Select If [a3] = "" Then [a3].Select End Sub '-------- Salutations JJ
"Manu" a écrit dans le message de news:
Bonsoir, Comment puis je demander en VBA : si il n'y a rien en A3 alors positionne toi dessus sinon fais cette macro... Range("A2").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select
