Discussion :

[treizehubert]

Bonjour à toutes et tous,

Dans un fichier N j'ai enregistré une macro (entre autres !) qui copie vers la droite, les colonnes G et H qui contiennent des données - H remplaçant I et G remplaçant H - et réécrit ensuite le titre de colonne en G1.
Jusqu'ici tout va bien.

Maintenant que ma plage G2;Gx est vide, j'aimerais saisir automatiquement la chaîne de caractères "NON" dans chacune des cellules de ma colonne G.

Bien sur, toutes les cellules de G ne doivent pas contenir "NON" jusqu'à 65536, mais, 1ère difficulté, la dernière ligne saisie m'est inconnue puisqu'elle dépend de l'avancée dans la saisie des informations par les utilisateurs.

De plus, - difficulté supplémentaire ! - il existe souvent des "trous" dans la saisie des informations qui font que je ne sais pas à l'avance quelle colonne choisir dans la recherche de la dernière ligne contenant des informations...

Tout ça, je ne sais pas faire, et c'est là, SVP, que j'ai besoin d'aide, de conseils et autres croustilleries du genre...

En attendant votre aide précieuse, je vous remercie d'avance,
Cordialement
Hub

[NicolasST]

La formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim x as integer
x = Range("G1").CurrentRegion.Rows.Count

te donnera le nombre de lignes de ta zone en incluant la ligne de titres.
Utilises la en début de macro, tu pourras alors utiliser ta variable plus loin.

[casefayere]

Bonjour,
une partie du code, à adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim DL As Long, Plg As Range
With Sheets("Feuil1")
  DL = .Range("G" & .Rows.Count).End(xlUp).Row
  Set Plg = .Range("G2:H" & DL)
  .Range("H2:I" & DL) = Plg.Value
  .Range("G1") = "ANNEE N"
  .Range("H1") = "ANNEE N-1"
  .Range("I1") = "ANNEE N-2"
  .Range("G2:G" & DL) = "NON"
End With

[Daniel.C]

Bonjour,

Pour le calcul de la dernière ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DerLigne = [G:H].Find("*", , , , xlByRows, xlPrevious).Row

[treizehubert]

Bonjour à toutes et à tous !

Merci beaucoup pour vos réponses et vos propositions !
Grâce à vous j'ai progressé dans mon travail, mais j'ai aussi beaucoup appris !
J'ai retenu la proposition de casefayere, non-pas parce qu'elle est la meilleure (je ne me permettrais pas de juger et puis je n'en ai même pas le niveau ! ) mais parce qu'elle était pour moi plus explicite, compte-tenu des maigres connaissances qui sont les miennes !
J'ai donc adapté ce code selon mes besoins et CA MAAAARCHE !
Alors encore une fois, merci à tous pour votre implication.
Bien cordialement,
Hubert