Discussion :

[ThisioOo]

Bonjour a tous,
ma nouvelle topic est en lien avec celle la https://www.developpez.net/forums/d1...llule-cellule/, j'ai plus ou moins réussis a faire ce que je voulais.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
i = 6
        While Cells(i, 13) <> ""
            Cells(i, 13).Select
            Selection.Copy
            Range("C5").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            'ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True,
            'IgnorePrintAreas:=False
            ActiveWorkbook.SaveAs Filename:= _
            "C:\TEST" & "\" & Format(Date, "yyyymmdd") & "\" & Format(Date, "yyyymmdd") & "." & Range("C5").Text & ".xlsm", FileFormat _
            :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
            i = i + 1
        Wend

J'ai ceci comme code, qui doit prendre toutes les cellules non vide a partir de la ligne 6 de la 13 eme colonne, ça fait bien son travail sauf quand ça arrive à une cellule vide, il enregistre quand même avec la cellule vide mais après s’arrête, est ce qu'il me manque quelque chose?

Cordialement ThisioOo

[Menhir]

j'ai plus ou moins réussis a faire ce que je voulais.

Une petite correction "esthétique" :

Code :

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

1
2
3
4
5
6
7
i = 6
While Cells(i, 13) <> ""
    Range("C5").Value = Cells(i, 13).Value
    ActiveWorkbook.SaveAs Filename:="C:\TEST" & "\" & Format(Date, "yyyymmdd") & "\" & Format(Date, "yyyymmdd") & "." & Range("C5").Text & ".xlsm", _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    i = i + 1
Wend

quand ça arrive à une cellule vide, il enregistre quand même avec la cellule vide mais après s’arrête

Es-tu sûr que cette cellule est réellement vide ?
Ne contiendrait-elle pas un espace, un 0 ou autres caractères de ce genre ?

[ThisioOo]

Es-tu sûr que cette cellule est réellement vide ?
Ne contiendrait-elle pas un espace, un 0 ou autres caractères de ce genre ?

Je confirme qu'elle est bien vide

[Menhir]

Je confirme qu'elle est bien vide

Comment l'as-tu vérifié ? Juste en visuel ?
Je connais plus d'une dizaines de caractères qui ne se voient pas mais qui répondent faux à un test de cellule vide.

[patricktoulon]

re
Bonjour

J'ai ceci comme code, qui doit prendre toutes les cellules non vide a partir de la ligne 6 de la 13 eme colonne, ça fait bien son travail sauf quand ça arrive à une cellule vide, il enregistre quand même avec la cellule vide mais après s’arrête, est ce qu'il me manque quelque chose?

dis moi tu aurais pas des cellules vides parmis des cellules pleine par hasard??
dans ce cas la c'est tout le concept qui est a revoir

[pijaku]

Bonjour,

Le PasteSpecial xlPasteValue me fait penser qu'éventuellement cette cellule contiendrait une formule renvoyant "".
A vérifier...

[ThisioOo]

Merci a tous pour vos réponses

Comment l'as-tu vérifié ? Juste en visuel ?
Je connais plus d'une dizaines de caractères qui ne se voient pas mais qui répondent faux à un test de cellule vide.

Menhir elle est vide car j'ai sélectionner la cellule et j'ai appuyé sur suppr

dis moi tu aurais pas des cellules vides parmis des cellules pleine par hasard??
dans ce cas la c'est tout le concept qui est a revoir

Patrick je n'ai pas de de cellule vide parmi mes cellules pleine

Bonjour,

Le PasteSpecial xlPasteValue me fait penser qu'éventuellement cette cellule contiendrait une formule renvoyant "".
A vérifier...

Pijaku, que veux tu dire par la?

Encore perdu une occasion de me taire...

Thautheme aucun problème, c'est déjà gentil d'essayer

[ThisioOo]

Bonjour à tous,

Je me permet de relancer le sujet car j'ai l'impression qu'il est un peu passé à la trappe, peut être que je me trompe mais je préfère me rassurer en faisant ça

Merci à tous

[Thautheme]

Bonjour le fil, bonjour le forum,

Peut-être avec : Do While... Loop

[ThisioOo]

Bonjour le fil, bonjour le forum,

Peut-être avec : Do While... Loop

Bonjour, Thautheme, ca ne change rien avec Do While... Loop

[Thautheme]

Encore perdu une occasion de me taire...

[Igloobel]

Bonjour à tous,

Encore perdu une occasion de me taire...

Je suis pas d'accord Thautheme La boucle While ... wend étant la plus lente (et c'est pas moi qui l'ai dit en premier) il est normal de proposé

Code :

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

Do While... Loop

je l'aurai fait si tu l'avais pas fait

@ ThisioOo

Peux-tu nous envoyé une capture écran de ton fichier qui illustre ton problème au vu de la discution il semble qu'un visuel (de type capture écran) soit devenu nécessaire

[halaster08]

Code :

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

1
2
 
        While Cells(i, 13) <> ""

J'ai ceci comme code, qui doit prendre toutes les cellules non vide a partir de la ligne 6 de la 13 eme colonne, ça fait bien son travail sauf quand ça arrive à une cellule vide, il enregistre quand même avec la cellule vide mais après s’arrête

Le code fait exactement ce que tu lui demande, tant que la cellule n'est pas vide fait tes instruction
Ce qui est différent de "prendre toutes les cellules non vide"
Pour ça il vaudrait mieux, à mon avis faire une boucle for de la ligne 6 à la dernière ligne, plus un si pour ne faire les instructions que si la cellule n'est pas vide

[pijaku]

A essayer dans un nouveau classeur tout propre, tout vide...

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub Demo()
Dim I&
Range("M6:M10").Value = "titi"
I = 6
While Cells(I, 13).Value <> ""
   Cells(I, 14).Value = "toto"
   I = I + 1
Wend
End Sub

[ThisioOo]

Bonjour Pijaku,

A essayer dans un nouveau classeur tout propre, tout vide...

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub Demo()
Dim I&
Range("M6:M10").Value = "titi"
I = 6
While Cells(I, 13).Value <> ""
   Cells(I, 14).Value = "toto"
   I = I + 1
Wend
End Sub

Je suis presque sur d'avoir compris ce qui doit se passer cependant je suis un peu moins sur de savoir pourquoi ça ne marche pas :o
Cordialement ThisioOo

[Igloobel]

Le code fait exactement ce que tu lui demande, tant que la cellule n'est pas vide fait tes instruction
Ce qui est différent de "prendre toutes les cellules non vide"
Pour ça il vaudrait mieux, à mon avis faire une boucle for de la ligne 6 à la dernière ligne, plus un si pour ne faire les instructions que si la cellule n'est pas vide

j'avais mal lu mais se suis tooooootalement d'accord avec toi halaster08

[ThisioOo]

Merci à tous pour vos réponses
Je vais essayé les différentes méthodes proposées

Je vous montre quand même pour avoir visuel:

[ThisioOo]

Bonjour Halaster,

Le code fait exactement ce que tu lui demande, tant que la cellule n'est pas vide fait tes instruction
Ce qui est différent de "prendre toutes les cellules non vide"
Pour ça il vaudrait mieux, à mon avis faire une boucle for de la ligne 6 à la dernière ligne, plus un si pour ne faire les instructions que si la cellule n'est pas vide

C'est vrai que ça pourrait se faire cependant je n'ai pas de dernière ligne pour la boucle for, du coup je mets une dernière ligne assez loin et la condition if se chargera du reste? ça ne risque pas de ralentir?

Cordialement ThisioOo

[pijaku]

Bonjour,

Nous en sommes à la deuxième page de cette discussion, 21 messages que nous tournons en rond.
Sans ton classeur original, personne ne saura te répondre.

Peux-tu nous le glisser en pj à ce forum?
Il faut que tu l'anonymise le cas échéant...

[ThisioOo]

Dans mon classeur, il y a une seule feuille que je peux montrer
Et c'est le module 1 qu'il faut regarder

test.xlsm