OVH Cloud OVH Cloud

Copier 1 celulle non vide dans une ligne

5 réponses
Avatar
Laugh974
Bonjour,
Je suis un novice dans ce monde et viens de rechercher comment je peux simplement copier la 1ere celulle non vide d'une ligne pour la coller dans une colonne.
En fait je suis sur une forme de gantt (qui ne se mets pas à jour selon des dates :( ) et j'aurais besoins dans la colonne H de reprendre la valeur dans la ligne qui correspond à une action que j'ai transformé en date. Pour cela je renvoi la valeur de la celulle vers une ligne en fin de page qui indique la date (ligne 46) )
Peut etre que ma démarche n'est pas bonne mais vu qu'ils m'ont données un planning qu'avec des semaines et des code couleurs pour définir qu'elle est la tache ... je suis dépassé.
Please Help me !

5 réponses

Avatar
Jacquouille
Bonjour,
En attendant Denis et sa boule de cristal ....
Vu qu'il n'y a pas d'exemple .....
Tu ouvres l'enregistreur de macro.
Ensuite, tu te positionnes dans la colonne A, sur la ligne dont tu veux la
cellule. ex: en A4.
Ensuite, tu fais CTRL et flèche droite ... et tu vas arriver sur la première
cel non vide.
Ensuite, tu fais un copier-coller de ce contenu.
Si problème, publie ton fichier (expurgé de données confidentielles) sur
CJOINT.COM
PS: n'oublie pas d'arrêter l'enregistreur de macro.
---------------
ligdeb = Range("A1").End(xlDown).Row
trouvé sur le WEB. Cela te donnera la première celllule non vide (valeur de
ligdeb)
----------------------
Bonne chance.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Laugh974" a écrit dans le message de groupe de discussion
:
Bonjour,
Je suis un novice dans ce monde et viens de rechercher comment je peux
simplement copier la 1ere celulle non vide d'une ligne pour la coller dans
une
colonne.
En fait je suis sur une forme de gantt (qui ne se mets pas à jour selon des
dates :( ) et j'aurais besoins dans la colonne H de reprendre la valeur dans
la
ligne qui correspond à une action que j'ai transformé en date. Pour cela je
renvoi la valeur de la celulle vers une ligne en fin de page qui indique la
date
(ligne 46) )
Peut etre que ma démarche n'est pas bonne mais vu qu'ils m'ont données un
planning qu'avec des semaines et des code couleurs pour définir qu'elle est
la
tache ... je suis dépassé.
Please Help me !
Avatar
MichD
Bonjour,
Je n'y connais rien au graphe de Gantt.
Cette formule la première valeur d'une plage de cellules que ce soit une
valeur numérique ou alphanumérique. Adapte la plage de cellules.
Validation Matricielle : Maj + Ctrl + Enter
=INDIRECT(ADRESSE(MIN(SI(B2:B19<>"";LIGNE(B2:B19)));2))
MichD
Avatar
Jacquouille
Bonjour,
Perso, je ne mettrai pas des Gantt pour répondre.
Plus je relis cette demande, moins je la comprends..... ou alors, c'est tout
simple :
Tu cherches une cel (sous forme de date) qui se trouve dans la colonne H
pour la recopier en ligne 46 (en H46 ?????)
Je comprends que la valeur cherchée se trouve dans la première cellule non
vide de la col H.
Si c'est cela, je propose de copier ceci dans un module VBA:
----------------------------
Sub trouver_première_cellule_livide()
Dim Premlig As Integer ' Clin d'oeil à MichD
msgbox "La solution préconisée par Denis devrait suffire si tu l'adaptes à
la bonne colonne"
Premlig = Range("H1").End(xlDown).Row
Range("H" & Premlig).Copy
Range("H46").Select
ActiveSheet.Paste
MsgBox "Vas voir en H46"
End Sub
----------------------------
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Laugh974" a écrit dans le message de groupe de discussion
:
Bonjour,
Je suis un novice dans ce monde et viens de rechercher comment je peux
simplement copier la 1ere celulle non vide d'une ligne pour la coller dans
une
colonne.
En fait je suis sur une forme de gantt (qui ne se mets pas à jour selon des
dates :( ) et j'aurais besoins dans la colonne H de reprendre la valeur dans
la
ligne qui correspond à une action que j'ai transformé en date. Pour cela je
renvoi la valeur de la celulle vers une ligne en fin de page qui indique la
date
(ligne 46) )
Peut etre que ma démarche n'est pas bonne mais vu qu'ils m'ont données un
planning qu'avec des semaines et des code couleurs pour définir qu'elle est
la
tache ... je suis dépassé.
Please Help me !
Avatar
Jacquouille
Précision :
Il faut que H1 soit vide !
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
qokhg6$4c8$
Bonjour,
Perso, je ne mettrai pas des Gantt pour répondre.
Plus je relis cette demande, moins je la comprends..... ou alors, c'est tout
simple :
Tu cherches une cel (sous forme de date) qui se trouve dans la colonne H
pour la recopier en ligne 46 (en H46 ?????)
Je comprends que la valeur cherchée se trouve dans la première cellule non
vide de la col H.
Si c'est cela, je propose de copier ceci dans un module VBA:
----------------------------
Sub trouver_première_cellule_livide()
Dim Premlig As Integer ' Clin d'oeil à MichD
msgbox "La solution préconisée par Denis devrait suffire si tu l'adaptes à
la bonne colonne"
Premlig = Range("H1").End(xlDown).Row
Range("H" & Premlig).Copy
Range("H46").Select
ActiveSheet.Paste
MsgBox "Vas voir en H46"
End Sub
----------------------------
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Laugh974" a écrit dans le message de groupe de discussion
:
Bonjour,
Je suis un novice dans ce monde et viens de rechercher comment je peux
simplement copier la 1ere celulle non vide d'une ligne pour la coller dans
une
colonne.
En fait je suis sur une forme de gantt (qui ne se mets pas à jour selon des
dates :( ) et j'aurais besoins dans la colonne H de reprendre la valeur dans
la
ligne qui correspond à une action que j'ai transformé en date. Pour cela je
renvoi la valeur de la celulle vers une ligne en fin de page qui indique la
date
(ligne 46) )
Peut etre que ma démarche n'est pas bonne mais vu qu'ils m'ont données un
planning qu'avec des semaines et des code couleurs pour définir qu'elle est
la
tache ... je suis dépassé.
Please Help me !
Avatar
Michel__D
Bonjour,
Le 21/10/2019 à 06:13, Laugh974 a écrit :
Bonjour,
Je suis un novice dans ce monde et viens de rechercher comment je peux
simplement copier la 1ere celulle non vide d'une ligne pour la coller dans une
colonne.
En fait je suis sur une forme de gantt (qui ne se mets pas à jour selon des
dates :( ) et j'aurais besoins dans la colonne H de reprendre la valeur dans la
ligne qui correspond à une action que j'ai transformé en date. Pour cela je
renvoi la valeur de la celulle vers une ligne en fin de page qui indique la date
(ligne 46) )
Peut etre que ma démarche n'est pas bonne mais vu qu'ils m'ont données un
planning qu'avec des semaines et des code couleurs pour définir qu'elle est la
tache ... je suis dépassé.
Please Help me !

Je ne sais pas si j'ai bien tout compris mais ce qui suit donne la valeur de la 1ère cellule non
vide d'une ligne (à adapter)
=INDIRECT(CAR(64+MIN(SI(A11:G11<>"";COLONNE(A11:G11)))) & LIGNE())