j'ai une document EXCEL que me renvoie des utilisateurs via email.
je desire creer une macro pour copier les infos du document recus dans un
tableau excel, pour le moment je fait cela a la main.
Mon probleme est:
Par example La "date de demande" est une cellule unique (K6 dans mon cas),
par
contre le tableau qui contient les articles peuvent varier de 1 a 14 lignes
(B19 a B32) en fonction du nombre du nombre d'article.
Comment tester le nombre de ligne d'articles pour ensuite copier x fois la
"date de demande" vers le bas dans la petite base de donnes excel (x etant
le nombre de ligne article)?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Dernière ligne non vide à partir de B19 : Range("B19").End(xlDown).Row Nombre de cellules dans la plage de B19 à B inconnu : plg = "B19:B" & Range("B19").End(xlDown).Row NbArticles = Range(plg).Cells.Count
Cordialement Pascal
"thierry" a écrit dans le message de news:
Bonjour
j'ai une document EXCEL que me renvoie des utilisateurs via email. je desire creer une macro pour copier les infos du document recus dans un tableau excel, pour le moment je fait cela a la main.
Mon probleme est: Par example La "date de demande" est une cellule unique (K6 dans mon cas), par contre le tableau qui contient les articles peuvent varier de 1 a 14 lignes
(B19 a B32) en fonction du nombre du nombre d'article. Comment tester le nombre de ligne d'articles pour ensuite copier x fois la
"date de demande" vers le bas dans la petite base de donnes excel (x etant
le nombre de ligne article)?
merci par avance de votre aide
thierry
Bonjour
Dernière ligne non vide à partir de B19 :
Range("B19").End(xlDown).Row
Nombre de cellules dans la plage de B19 à B inconnu :
plg = "B19:B" & Range("B19").End(xlDown).Row
NbArticles = Range(plg).Cells.Count
Cordialement
Pascal
"thierry" <tschweitzer@yahoo.com> a écrit dans le message de
news:OGW7y6KkEHA.2500@TK2MSFTNGP09.phx.gbl...
Bonjour
j'ai une document EXCEL que me renvoie des utilisateurs via email.
je desire creer une macro pour copier les infos du document recus dans un
tableau excel, pour le moment je fait cela a la main.
Mon probleme est:
Par example La "date de demande" est une cellule unique (K6 dans mon cas),
par
contre le tableau qui contient les articles peuvent varier de 1 a 14
lignes
(B19 a B32) en fonction du nombre du nombre d'article.
Comment tester le nombre de ligne d'articles pour ensuite copier x fois
la
"date de demande" vers le bas dans la petite base de donnes excel (x
etant
Bonjour Dernière ligne non vide à partir de B19 : Range("B19").End(xlDown).Row Nombre de cellules dans la plage de B19 à B inconnu : plg = "B19:B" & Range("B19").End(xlDown).Row NbArticles = Range(plg).Cells.Count
Cordialement Pascal
"thierry" a écrit dans le message de news:
Bonjour
j'ai une document EXCEL que me renvoie des utilisateurs via email. je desire creer une macro pour copier les infos du document recus dans un tableau excel, pour le moment je fait cela a la main.
Mon probleme est: Par example La "date de demande" est une cellule unique (K6 dans mon cas), par contre le tableau qui contient les articles peuvent varier de 1 a 14 lignes
(B19 a B32) en fonction du nombre du nombre d'article. Comment tester le nombre de ligne d'articles pour ensuite copier x fois la
"date de demande" vers le bas dans la petite base de donnes excel (x etant
le nombre de ligne article)?
merci par avance de votre aide
thierry
LeSteph
Bonjour, Indépendamment du contexte des feuilles que tu n'as pas assez précisé, exemple dans feuille active pour compter et pour placer la date de k6 dans la colonne voisine: '**** Sub Metladate() Dim c Dim compteur as integer
For each c in Range("B19:B32").cells if c<>"" then compteur=compteur+1 c.offset(0,1)=format([k6],"dd/mmm/yyyy") end if Next msgbox compteur & " articles ont été datés" End Sub '**** ' ;-) ' LeSteph
"thierry" a écrit dans le message de news:
Bonjour
j'ai une document EXCEL que me renvoie des utilisateurs via email. je desire creer une macro pour copier les infos du document recus dans un tableau excel, pour le moment je fait cela a la main.
Mon probleme est: Par example La "date de demande" est une cellule unique (K6 dans mon cas), par contre le tableau qui contient les articles peuvent varier de 1 a 14 lignes
(B19 a B32) en fonction du nombre du nombre d'article. Comment tester le nombre de ligne d'articles pour ensuite copier x fois la
"date de demande" vers le bas dans la petite base de donnes excel (x etant
le nombre de ligne article)?
merci par avance de votre aide
thierry
Bonjour,
Indépendamment du contexte des feuilles que
tu n'as pas assez précisé,
exemple dans feuille active pour compter et
pour placer la date de k6 dans la colonne voisine:
'****
Sub Metladate()
Dim c
Dim compteur as integer
For each c in Range("B19:B32").cells
if c<>"" then
compteur=compteur+1
c.offset(0,1)=format([k6],"dd/mmm/yyyy")
end if
Next
msgbox compteur & " articles ont été datés"
End Sub
'****
' ;-)
' LeSteph
"thierry" <tschweitzer@yahoo.com> a écrit dans le message de
news:OGW7y6KkEHA.2500@TK2MSFTNGP09.phx.gbl...
Bonjour
j'ai une document EXCEL que me renvoie des utilisateurs via email.
je desire creer une macro pour copier les infos du document recus dans un
tableau excel, pour le moment je fait cela a la main.
Mon probleme est:
Par example La "date de demande" est une cellule unique (K6 dans mon cas),
par
contre le tableau qui contient les articles peuvent varier de 1 a 14
lignes
(B19 a B32) en fonction du nombre du nombre d'article.
Comment tester le nombre de ligne d'articles pour ensuite copier x fois
la
"date de demande" vers le bas dans la petite base de donnes excel (x
etant
Bonjour, Indépendamment du contexte des feuilles que tu n'as pas assez précisé, exemple dans feuille active pour compter et pour placer la date de k6 dans la colonne voisine: '**** Sub Metladate() Dim c Dim compteur as integer
For each c in Range("B19:B32").cells if c<>"" then compteur=compteur+1 c.offset(0,1)=format([k6],"dd/mmm/yyyy") end if Next msgbox compteur & " articles ont été datés" End Sub '**** ' ;-) ' LeSteph
"thierry" a écrit dans le message de news:
Bonjour
j'ai une document EXCEL que me renvoie des utilisateurs via email. je desire creer une macro pour copier les infos du document recus dans un tableau excel, pour le moment je fait cela a la main.
Mon probleme est: Par example La "date de demande" est une cellule unique (K6 dans mon cas), par contre le tableau qui contient les articles peuvent varier de 1 a 14 lignes
(B19 a B32) en fonction du nombre du nombre d'article. Comment tester le nombre de ligne d'articles pour ensuite copier x fois la
"date de demande" vers le bas dans la petite base de donnes excel (x etant
le nombre de ligne article)?
merci par avance de votre aide
thierry
J-Dan
bonjour Thierry,
pour tester le nombre de valeurs dans B19:B32, tu as : NBVAL(B19:B32), NBVAL te renvoie les cellules non vides ou en VBA : nbArticles = WorksheetFunction.CountA(Range("B19:B32"))
Est-ce que ça répond à ta question ?
J-Dan
-----Message d'origine----- Bonjour
j'ai une document EXCEL que me renvoie des utilisateurs via email.
je desire creer une macro pour copier les infos du document recus dans un
tableau excel, pour le moment je fait cela a la main.
Mon probleme est: Par example La "date de demande" est une cellule unique (K6 dans mon cas),
par contre le tableau qui contient les articles peuvent varier de 1 a 14 lignes
(B19 a B32) en fonction du nombre du nombre d'article. Comment tester le nombre de ligne d'articles pour ensuite copier x fois la
"date de demande" vers le bas dans la petite base de donnes excel (x etant
le nombre de ligne article)?
merci par avance de votre aide
thierry
.
bonjour Thierry,
pour tester le nombre de valeurs dans B19:B32, tu as :
NBVAL(B19:B32), NBVAL te renvoie les cellules non vides
ou en VBA :
nbArticles = WorksheetFunction.CountA(Range("B19:B32"))
Est-ce que ça répond à ta question ?
J-Dan
-----Message d'origine-----
Bonjour
j'ai une document EXCEL que me renvoie des utilisateurs
via email.
je desire creer une macro pour copier les infos du
document recus dans un
tableau excel, pour le moment je fait cela a la main.
Mon probleme est:
Par example La "date de demande" est une cellule unique
(K6 dans mon cas),
par
contre le tableau qui contient les articles peuvent
varier de 1 a 14 lignes
(B19 a B32) en fonction du nombre du nombre d'article.
Comment tester le nombre de ligne d'articles pour
ensuite copier x fois la
"date de demande" vers le bas dans la petite base de
donnes excel (x etant
pour tester le nombre de valeurs dans B19:B32, tu as : NBVAL(B19:B32), NBVAL te renvoie les cellules non vides ou en VBA : nbArticles = WorksheetFunction.CountA(Range("B19:B32"))
Est-ce que ça répond à ta question ?
J-Dan
-----Message d'origine----- Bonjour
j'ai une document EXCEL que me renvoie des utilisateurs via email.
je desire creer une macro pour copier les infos du document recus dans un
tableau excel, pour le moment je fait cela a la main.
Mon probleme est: Par example La "date de demande" est une cellule unique (K6 dans mon cas),
par contre le tableau qui contient les articles peuvent varier de 1 a 14 lignes
(B19 a B32) en fonction du nombre du nombre d'article. Comment tester le nombre de ligne d'articles pour ensuite copier x fois la
"date de demande" vers le bas dans la petite base de donnes excel (x etant
le nombre de ligne article)?
merci par avance de votre aide
thierry
.
thierry
Merci beaucoup pour vos reponses, je lit et test tous ca et je reviens avec d'autres questions si il y a ;-)
A+
thierry "thierry" a écrit dans le message de news:
Bonjour
j'ai une document EXCEL que me renvoie des utilisateurs via email. je desire creer une macro pour copier les infos du document recus dans un tableau excel, pour le moment je fait cela a la main.
Mon probleme est: Par example La "date de demande" est une cellule unique (K6 dans mon cas), par contre le tableau qui contient les articles peuvent varier de 1 a 14 lignes
(B19 a B32) en fonction du nombre du nombre d'article. Comment tester le nombre de ligne d'articles pour ensuite copier x fois la
"date de demande" vers le bas dans la petite base de donnes excel (x etant
le nombre de ligne article)?
merci par avance de votre aide
thierry
Merci beaucoup pour vos reponses, je lit et test tous ca et je reviens avec
d'autres questions si il y a ;-)
A+
thierry
"thierry" <tschweitzer@yahoo.com> a écrit dans le message de
news:OGW7y6KkEHA.2500@TK2MSFTNGP09.phx.gbl...
Bonjour
j'ai une document EXCEL que me renvoie des utilisateurs via email.
je desire creer une macro pour copier les infos du document recus dans un
tableau excel, pour le moment je fait cela a la main.
Mon probleme est:
Par example La "date de demande" est une cellule unique (K6 dans mon cas),
par
contre le tableau qui contient les articles peuvent varier de 1 a 14
lignes
(B19 a B32) en fonction du nombre du nombre d'article.
Comment tester le nombre de ligne d'articles pour ensuite copier x fois
la
"date de demande" vers le bas dans la petite base de donnes excel (x
etant
Merci beaucoup pour vos reponses, je lit et test tous ca et je reviens avec d'autres questions si il y a ;-)
A+
thierry "thierry" a écrit dans le message de news:
Bonjour
j'ai une document EXCEL que me renvoie des utilisateurs via email. je desire creer une macro pour copier les infos du document recus dans un tableau excel, pour le moment je fait cela a la main.
Mon probleme est: Par example La "date de demande" est une cellule unique (K6 dans mon cas), par contre le tableau qui contient les articles peuvent varier de 1 a 14 lignes
(B19 a B32) en fonction du nombre du nombre d'article. Comment tester le nombre de ligne d'articles pour ensuite copier x fois la
"date de demande" vers le bas dans la petite base de donnes excel (x etant
