Discussion :

[CDGESTION]

Bonjour,

Je suis novice en VBA et j'aimerai savoir si on pouvais me donner un coup de main pour une macro.

Alors mon souci est le suivant :

j'ai 3 colonne (A-B-C) qui ne se terminent pas à la même ligne (exemple :colonne A s’arrête à la linge 200, la B à la ligne 150 et la C à la ligne 250).
J'aimerai mettre un zéro sur les lignes 251 des trois colonnes.

Avec une macro est-il possible repérer automatiquement quelle colonne est la plus longue et ajouter trois zéro sur la même ligne en fonction de la colonne la plus longue?


Merci pour votre aide...

[joe.levrai]

Bonjour,

oui bien sûr c'est possible.

Intéresse toi à la propriété .CurrentRegion de l'objet Range, en inspectant son nombre de lignes (Rows.Count) tu et en connaissant la ligne de départ (1), tu obtiens facilement le numéro de la dernière ligne, qu'il ne te reste qu'à remplir avec tes 0.

Mon petit doigts me dit que Range("A1").CurrentRegion.Rows.Count est suffisant pour que tu avances et puisse résoudre ta problématique... mais chut, faut pas le répéter

[CDGESTION]

Bonjour,


Merci pour ta réponse mais CurrentRegion ne fonctionnait pas vu que j'avais des cellules vides dans mes colonnes.
J'ai néanmoins trouvé une solution ci-dessous mais du coup sa me met un zéro que dans la fin de colonne C (C251) or j'aimerai ajouté aussi un zéro en A251 et B251 ?

Aurais tu une solution ou un indice...?

Code :

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

1
2
Range("C" & Rows.Count).End(xlUp).Offset(1).Select
Selection.Value = "0"

[joe.levrai]

Bonjour,

si CurrentRegion ne fait pas l'affaire, il faut augmenter la portée de ta constitution de plage.

Utilises donc UsedRange, au travers d'un Rows.count.end(xlup).row, que tu auras ramené au trois premières colonnes pour obtenir la réelle dernière ligne de ta plage de trois colonnes

[CDGESTION]

Super! sa fonctionne parfaitement!

merci beaucoup Joe!

[patricktoulon]

re
bonjour
allons Joe!!!
et si le usedrange fait plus que 3 colonnes et que par exemple la colonne 6 va jusqu'à la ligne 500

et que la ligne final en ABC correspond a 250 comment on fait hein !!

non !! non !! c'est pas bon avec ta méthode cela implique qu'il utilise que ces 3 colonnes dans le sheets

j'ai regarder le post hier j'ai failli répondre la même chose

j'ai donc tout essayé a part avec specialcell xltypelastcell sur un range je vois pas trop

A méditer

[joe.levrai]

Utilises donc UsedRange, que tu auras ramené au trois premières colonnes pour obtenir la réelle dernière ligne de ta plage de trois colonnes

hum hum ...

y'a un piège que je n'ai pas réussi à reproduire avec ceci ?
sans instruction End()

Code :

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

UsedRange.Resize(, 3).Find("*", , , , xlRows, xlPrevious).Row

EDIT : m'étant arrêté au début de ton message #6 pour défendre mon bifteack avec ce message, je viens de voir qu'en fin de #8 tu redeviens raisonnable

[patricktoulon]

re
chez moi j'ai l'erreur 438

l'Object ne gère pas cette propriété