Bonjour,
Dans une macro je fais une recherche, ensuite je me décale d'1 ligne, si la
cellule est vide j'execute une formule, si la cellule n'est pas vide je vais
à la derniere cellule vide de la colonne pour executer la formule.
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
Daniel
Bonsoir. Essaie :
Sub test() 'recherche ActiveCell(2,1).Select If ActiveCell.Value = "" Then 'formule Else Cells(65536, ActiveCell.Column).End(xlUp)(2, 1).Select 'formule End If End Sub
Cordialement. Daniel "tourtouleter" a écrit dans le message de news:
Bonjour, Dans une macro je fais une recherche, ensuite je me décale d'1 ligne, si la cellule est vide j'execute une formule, si la cellule n'est pas vide je vais à la derniere cellule vide de la colonne pour executer la formule.
Merci de votre aide il est 22h30; à demain...
Bonsoir.
Essaie :
Sub test()
'recherche
ActiveCell(2,1).Select
If ActiveCell.Value = "" Then
'formule
Else
Cells(65536, ActiveCell.Column).End(xlUp)(2, 1).Select
'formule
End If
End Sub
Cordialement.
Daniel
"tourtouleter" <tourtouleter@discussions.microsoft.com> a écrit dans le
message de news: 9029503B-D258-4F06-910D-D03B692A52DD@microsoft.com...
Bonjour,
Dans une macro je fais une recherche, ensuite je me décale d'1 ligne, si
la
cellule est vide j'execute une formule, si la cellule n'est pas vide je
vais
à la derniere cellule vide de la colonne pour executer la formule.
Sub test() 'recherche ActiveCell(2,1).Select If ActiveCell.Value = "" Then 'formule Else Cells(65536, ActiveCell.Column).End(xlUp)(2, 1).Select 'formule End If End Sub
Cordialement. Daniel "tourtouleter" a écrit dans le message de news:
Bonjour, Dans une macro je fais une recherche, ensuite je me décale d'1 ligne, si la cellule est vide j'execute une formule, si la cellule n'est pas vide je vais à la derniere cellule vide de la colonne pour executer la formule.
Merci de votre aide il est 22h30; à demain...
tourtouleter
Compris ça marche Bye
Bonsoir. Essaie :
Sub test() 'recherche ActiveCell(2,1).Select If ActiveCell.Value = "" Then 'formule Else Cells(65536, ActiveCell.Column).End(xlUp)(2, 1).Select 'formule End If End Sub
Cordialement. Daniel "tourtouleter" a écrit dans le message de news:
Bonjour, Dans une macro je fais une recherche, ensuite je me décale d'1 ligne, si la cellule est vide j'execute une formule, si la cellule n'est pas vide je vais à la derniere cellule vide de la colonne pour executer la formule.
Merci de votre aide il est 22h30; à demain...
Compris ça marche
Bye
Bonsoir.
Essaie :
Sub test()
'recherche
ActiveCell(2,1).Select
If ActiveCell.Value = "" Then
'formule
Else
Cells(65536, ActiveCell.Column).End(xlUp)(2, 1).Select
'formule
End If
End Sub
Cordialement.
Daniel
"tourtouleter" <tourtouleter@discussions.microsoft.com> a écrit dans le
message de news: 9029503B-D258-4F06-910D-D03B692A52DD@microsoft.com...
Bonjour,
Dans une macro je fais une recherche, ensuite je me décale d'1 ligne, si
la
cellule est vide j'execute une formule, si la cellule n'est pas vide je
vais
à la derniere cellule vide de la colonne pour executer la formule.
Sub test() 'recherche ActiveCell(2,1).Select If ActiveCell.Value = "" Then 'formule Else Cells(65536, ActiveCell.Column).End(xlUp)(2, 1).Select 'formule End If End Sub
Cordialement. Daniel "tourtouleter" a écrit dans le message de news:
Bonjour, Dans une macro je fais une recherche, ensuite je me décale d'1 ligne, si la cellule est vide j'execute une formule, si la cellule n'est pas vide je vais à la derniere cellule vide de la colonne pour executer la formule.
