selection derniere ligne et colonne vide

[marcello06]

Bonsoir le forum

je tente de créer un etat recapitulatif de la journée des agents et voilà mon soucis

je souhaite faire du repport de données sur une feuille en selectionnant la derniere ligne et je viens coller les valeurs des cellules (si elles sont non vides)


bien sur en fonction de l'agent la saisie du nombre de colonne est differente et là je n'arrive pas car si c'est bon pour la ligne la colonne je rame.....


Pouvez m'aider

un petit fichier pour l'exemple

Bonne soirée à vous tous

 

[wilfried_42]

Re : selection derniere ligne et colonne vide

bonjour marcello

l'odre pour la ligne tu connais, pour la colonne c'est pareil dans la logique

range("IV" & ligne).end(Xltoleft).column +1

 

[marcello06]

Re : selection derniere ligne et colonne vide

Merci Wilfried

Salut à toi merci pour ta réponse mais je n'arrive pas à ecrire correctement
la derniere ligne


WS.Select
L = WS.Range("A65536").End(xlUp).Row + 1
C = WS.range("IV" & L).end(Xltoleft).column +1

With WS
Range("Q1") = Sheets("Feuille RJA").Range("D2").Value

.Range("A" & L) = Sheets("Feuille RJA").Range("D5").Value
.Range("A" & L + 1) = Sheets("Feuille RJA").Range("A5").Value
' et après ça plante
.Range(C & L) = Sheets("Feuille RJA").Range("M7").Value


Ciao à +

 

[Hervé]

Re : selection derniere ligne et colonne vide

bonjour

essayes comme ceci :

.cells(C,L) = Sheets("Feuille RJA").Range("M7").Value

sinon, un code pour trouver la derniere ligne et derniere colonne d'une plage :

Dim plage As Range

Set plage = ActiveSheet.UsedRange
MsgBox plage(plage.Rows.Count, plage.Columns.Count).Address 'derniere ligne, derniere colonne

salut

 

[marcello06]

Re : selection derniere ligne et colonne vide

Bonsoir Herve

Merci pour ton code je l'inclus imédiatement

Il est tard mais que de conseil judicieux

 

[marcello06]

Re : selection derniere ligne et colonne vide

Re Herve

je n'arriv pas à recup la valeur de la cellule M7

je place mon fichier pour test

@+

 

[marcello06]

Re : selection derniere ligne et colonne vide

Re Re à tous

je viens enfin de trouver je place le fichier corrigé

Allez ça suffit pour ce soir je me couche....


Bye à demain

 

[wilfried_42]

Re : selection derniere ligne et colonne vide

re:

si ca marche. mais le cells est inversé par rapport à range

en faisant cells(C,L) tu mets ta valeur en ligne C, colonne L
j'ai donc retrouvé ta valeur en ligne 2 colonne 22 etc

 

[marcello06]

Re : selection derniere ligne et colonne vide

RE RE RE


En effet wilfried j'inversais entre le C, L

voici mon dernier fichier avec un controle sur la colonne M si vide on continue

Mais je n'arrive pas à simplier tous les if else endif

si vous avez une idee ..........je prend


Bon il faut savoir dire non mais c'est prennant


Bonsoir

 

[wilfried_42]

Re : selection derniere ligne et colonne vide

re: marcello

je te renvoie ton fichier avec une macro un peu epurée

dis moi, à quoi te servent les :

else
c = c + 1

dans l'etat actuelle de la macro, je n'en vois pas l'utilité puisque quand un test est ok, tu reinitialise C et qu'apres ta serie de IF, tu n'as aucun traitement avec ce C

m'enfin j'ai laissé ces lignes, tu n'as peut etre pas fini ta macro.

 

[marcello06]

Re : selection derniere ligne et colonne vide

Bonjour Wilfried, Le forum

Merci pour ta participation tout fonctione correctement

je continue ma macro reporting


Bonne journée à tous.

 

[marcello06]

Re : selection derniere ligne et colonne vide

RE Wilfried

tout juste les

else
c = c + 1

ne sont pas utile

cela reduit la macro

Thank encore