Problème de cellule vide

Philippe.R

15/07/2008 à 21:08

Bonsoir,
Il faudrait n'utiliser qu'une fois range("toto").End(xlUp) pour renseigner
une variable, soit sur la colonne qui contiens à coup sur le plus grand
nombre de ligne, soit en testant toutes les colonnes concernées et en
détectant la valeur max.
Ainsi :
maXlig=range("toto").End(xlUp).row
ou bien
maXlig = application.worksheetfunction.max(Sheets("récap") _
.Range("A6553").End(xlUp).row, Sheets("récap").Range _
("B6553").End(xlUp).,...)
Ensuite la syntaxe serait du type :

Sheets("récap").Range("A" & maXlig).End(xlUp).Offset(1, 0) _
= Sheets(Onglet).Range("H6") 'Date
Sheets("récap").Range("B" & maXlig).End(xlUp).Offset(1, 0) _
= Sheets(Onglet).Range("B11") 'N° client

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"NewsMic" a écrit dans le message de
news:487ce3c0$0$925$

Bonsoir,
Il faudrait n'utiliser qu'une fois range("toto").End(xlUp) pour renseigner
une variable, soit sur la colonne qui contiens à coup sur le plus grand
nombre de ligne, soit en testant toutes les colonnes concernées et en
détectant la valeur max.
Ainsi :
maXlig=range("toto").End(xlUp).row
ou bien
maXlig = application.worksheetfunction.max(Sheets("récap") _
.Range("A6553").End(xlUp).row, Sheets("récap").Range _
("B6553").End(xlUp).,...)
Ensuite la syntaxe serait du type :

Sheets("récap").Range("A" & maXlig).End(xlUp).Offset(1, 0) _
= Sheets(Onglet).Range("H6") 'Date
Sheets("récap").Range("B" & maXlig).End(xlUp).Offset(1, 0) _
= Sheets(Onglet).Range("B11") 'N° client

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"NewsMic" <britannicus60@wanadoo.fr> a écrit dans le message de
news:487ce3c0$0$925$ba4acef3@news.orange.fr...

Vous avez filtré cet utilisateur ! Consultez son message

Bonsoir,
Il faudrait n'utiliser qu'une fois range("toto").End(xlUp) pour renseigner
une variable, soit sur la colonne qui contiens à coup sur le plus grand
nombre de ligne, soit en testant toutes les colonnes concernées et en
détectant la valeur max.
Ainsi :
maXlig=range("toto").End(xlUp).row
ou bien
maXlig = application.worksheetfunction.max(Sheets("récap") _
.Range("A6553").End(xlUp).row, Sheets("récap").Range _
("B6553").End(xlUp).,...)
Ensuite la syntaxe serait du type :

Sheets("récap").Range("A" & maXlig).End(xlUp).Offset(1, 0) _
= Sheets(Onglet).Range("H6") 'Date
Sheets("récap").Range("B" & maXlig).End(xlUp).Offset(1, 0) _
= Sheets(Onglet).Range("B11") 'N° client

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"NewsMic" a écrit dans le message de
news:487ce3c0$0$925$

NewsMic

16/07/2008 à 10:50

Bonjour,

J'ai un souci. Lors de la première utilisation de la macro modifiée, dans le
fichier de destination, la copie écrase toutes les cellules du 1er
enregistrement au lieu de s'ajouter à la fin
J'ai modifié la ligne en
maXlig = Range("C6553").End(xlUp).Row
(La colonne C étant celle du n° de facture n'étant jamais vide)
Les 2 fichiers étant ouverts, est ce qu'il faut mettre cette ligne à un
endroit précis de la macro pour que la valeur maXlig s'initialise ?

Puis j'ai modifié toutes les lignes exactement comme dans votre réponse :
ex : Sheets("récap").Range("A" & maXlig).End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("H6") 'Date

NewsMic

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

Bonjour,

J'ai un souci. Lors de la première utilisation de la macro modifiée, dans le
fichier de destination, la copie écrase toutes les cellules du 1er
enregistrement au lieu de s'ajouter à la fin
J'ai modifié la ligne en
maXlig = Range("C6553").End(xlUp).Row
(La colonne C étant celle du n° de facture n'étant jamais vide)
Les 2 fichiers étant ouverts, est ce qu'il faut mettre cette ligne à un
endroit précis de la macro pour que la valeur maXlig s'initialise ?

Puis j'ai modifié toutes les lignes exactement comme dans votre réponse :
ex : Sheets("récap").Range("A" & maXlig).End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("H6") 'Date

NewsMic

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
ONlZ44q5IHA.3784@TK2MSFTNGP06.phx.gbl...

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour,

J'ai un souci. Lors de la première utilisation de la macro modifiée, dans le
fichier de destination, la copie écrase toutes les cellules du 1er
enregistrement au lieu de s'ajouter à la fin
J'ai modifié la ligne en
maXlig = Range("C6553").End(xlUp).Row
(La colonne C étant celle du n° de facture n'étant jamais vide)
Les 2 fichiers étant ouverts, est ce qu'il faut mettre cette ligne à un
endroit précis de la macro pour que la valeur maXlig s'initialise ?

Puis j'ai modifié toutes les lignes exactement comme dans votre réponse :
ex : Sheets("récap").Range("A" & maXlig).End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("H6") 'Date

NewsMic

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

NewsMic

16/07/2008 à 10:50

Bonjour,

J'ai un souci. Lors de la première utilisation de la macro modifiée, dans le
fichier de destination, la copie écrase toutes les cellules du 1er
enregistrement au lieu de s'ajouter à la fin
J'ai modifié la ligne en
maXlig = Range("C6553").End(xlUp).Row
(La colonne C étant celle du n° de facture n'étant jamais vide)
Les 2 fichiers étant ouverts, est ce qu'il faut mettre cette ligne à un
endroit précis de la macro pour que la valeur maXlig s'initialise ?

Puis j'ai modifié toutes les lignes exactement comme dans votre réponse :
ex : Sheets("récap").Range("A" & maXlig).End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("H6") 'Date

NewsMic

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

Bonjour,

J'ai un souci. Lors de la première utilisation de la macro modifiée, dans le
fichier de destination, la copie écrase toutes les cellules du 1er
enregistrement au lieu de s'ajouter à la fin
J'ai modifié la ligne en
maXlig = Range("C6553").End(xlUp).Row
(La colonne C étant celle du n° de facture n'étant jamais vide)
Les 2 fichiers étant ouverts, est ce qu'il faut mettre cette ligne à un
endroit précis de la macro pour que la valeur maXlig s'initialise ?

Puis j'ai modifié toutes les lignes exactement comme dans votre réponse :
ex : Sheets("récap").Range("A" & maXlig).End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("H6") 'Date

NewsMic

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
ONlZ44q5IHA.3784@TK2MSFTNGP06.phx.gbl...

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour,

J'ai un souci. Lors de la première utilisation de la macro modifiée, dans le
fichier de destination, la copie écrase toutes les cellules du 1er
enregistrement au lieu de s'ajouter à la fin
J'ai modifié la ligne en
maXlig = Range("C6553").End(xlUp).Row
(La colonne C étant celle du n° de facture n'étant jamais vide)
Les 2 fichiers étant ouverts, est ce qu'il faut mettre cette ligne à un
endroit précis de la macro pour que la valeur maXlig s'initialise ?

Puis j'ai modifié toutes les lignes exactement comme dans votre réponse :
ex : Sheets("récap").Range("A" & maXlig).End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("H6") 'Date

NewsMic

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

Youky

16/07/2008 à 11:20

Bonjour Philippe,
En complément, une réponse faites par AV pour trouver la dernière ligne de
plusieurs colonnes.
Ici tester de A à Q
maXlig= Sheets("récap").[A:Q].Find("*", , , , 1, 2).Row
J'aime bien cette formule.....
Youky

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

Bonjour Philippe,
En complément, une réponse faites par AV pour trouver la dernière ligne de
plusieurs colonnes.
Ici tester de A à Q
maXlig= Sheets("récap").[A:Q].Find("*", , , , 1, 2).Row
J'aime bien cette formule.....
Youky

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
ONlZ44q5IHA.3784@TK2MSFTNGP06.phx.gbl...

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour Philippe,
En complément, une réponse faites par AV pour trouver la dernière ligne de
plusieurs colonnes.
Ici tester de A à Q
maXlig= Sheets("récap").[A:Q].Find("*", , , , 1, 2).Row
J'aime bien cette formule.....
Youky

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

Philippe.R

16/07/2008 à 21:06

Bonsoir,
Tu peux alors placer en début de code, sitôt la feuille "récap" activée
cette ligne :

maXlig = Range("C50000").End(xlUp).Row+1

qui te donnera pour cette colonne la première ligne vide rencontrée en
remontant et non la dernière occupée

et tu simplifies ensuite comme ceci :

Sheets("récap").Range("A" & maXlig) = Sheets(Onglet).Range("H6")

(pas besoin du offset et surtout plus d'embrouille avec un nouveau end(xlup)
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"NewsMic" a écrit dans le message de
news:487def1d$0$900$

Bonsoir,
Tu peux alors placer en début de code, sitôt la feuille "récap" activée
cette ligne :

maXlig = Range("C50000").End(xlUp).Row+1

qui te donnera pour cette colonne la première ligne vide rencontrée en
remontant et non la dernière occupée

et tu simplifies ensuite comme ceci :

Sheets("récap").Range("A" & maXlig) = Sheets(Onglet).Range("H6")

(pas besoin du offset et surtout plus d'embrouille avec un nouveau end(xlup)
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"NewsMic" <britannicus60@wanadoo.fr> a écrit dans le message de
news:487def1d$0$900$ba4acef3@news.orange.fr...

Vous avez filtré cet utilisateur ! Consultez son message

Bonsoir,
Tu peux alors placer en début de code, sitôt la feuille "récap" activée
cette ligne :

maXlig = Range("C50000").End(xlUp).Row+1

qui te donnera pour cette colonne la première ligne vide rencontrée en
remontant et non la dernière occupée

et tu simplifies ensuite comme ceci :

Sheets("récap").Range("A" & maXlig) = Sheets(Onglet).Range("H6")

(pas besoin du offset et surtout plus d'embrouille avec un nouveau end(xlup)
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"NewsMic" a écrit dans le message de
news:487def1d$0$900$

Problème de cellule vide

5 réponses

Veuillez sélectionner un problème