|
|
Bonjour Marco-x
Si je comprends bien, tu cherche à inserer une formule dans la première cellule vide de la colonne H.
Premiére solution :
'Pas de lignefin
'Récupére la derniére cellule non vide de la colonne à partir de H10
casefin = Range("H10").End(xlDown).Address
'Selectionne la cellule
Range(casefin).Select
'Selectionne la cellule directement en dessous
ActiveCell.Offset(1, 0).Range("A1").Select
'Le .End peut être utilisé avec
(xlUp) : recherche vers le haut
(xlDown) : recherche vers le bas
(xlToLeft) : recherche vers la gauche
(xlToRight): recherche vers la droite
puis :
.Address : renvoie l'adresse de la cellule sous la forme $A$1
.Column : renvoi le numéro de la colonne
.Row : renvoi le numéro de la ligne
Deuxième solution :
'Recherche de la première cellule vide de la colonne à partir de H10
With Worksheets("MaFeuille").Range("H10:H65535")
Set c = .Find("", LookIn:=xlValues)
If Not c Is Nothing Then
Position = c.Address
Range(Position).Select
End If
End With
Aprés une de ces deux solutions, tu mets ta formule
ATTENTION : Dans les deux cas, il ne faut pas avoir de cellules vides sinon ta macro s'arrétera;
Si tu veux lire l'ensemble des cellules de la colonne à partir de H10 comme tu le fais, utilise le .End tel que je l'ai écrit plus haut pour récupérer la dernière ligne et tu peux définir LigneFin as string.
Voila, j'ai tendance à détailler beaucoup et je m'en excuse si je suis trop "scolaire".
Bon développement
|
1
