boucler sur plusieurs feuilles

[lio62]

Bonsoir

avec ce code je n'arrive pas a boucler sur la feuille "CONTROLE3".
dés que la colonne 8 de la feuille controle1 est atteinte il va bien sur la feuille controle2 mais dés que la colonne 8 de la feuille 2 est atteinte il ne passe pas en feuille controle3, il écrase la 2eme puis 3eme colonne et ainsi de suite de la feuillle controle2

si quelqu'un pouvez m'aider merci a+

Worksheets("bd").Select
ladate = [am1]
With Sheets("bd")
     Set LaPlage = .Range("b:b")
End With
i = IndFeuil  '***Permet de définir la feuille originelle pour le début de la saisie
Sheets("CONTROLES" & i).Select
   b = 1
For Each cell In LaPlage
If cell.Value >= ladate Then
     cell.EntireRow.Offset(0, 0).Range("a2:x2").Copy              '
  
     b = b + 1
     Cells(2, b + 1).PasteSpecial Paste:=xlValues, Transpose:=True
End If
If b = 8 Then
     Sheets("CONTROLES" & i + 1).Select
     Range("b2").Select
     b = 1
     b = b + 1
     Cells(2, b).PasteSpecial Paste:=xlValues, Transpose:=True
End If
Next

 

[Spitnolan08]

Re : boucler sur plusieurs feuilles

Salut lio62,

Pas le moral...🙁
J'ai perdu tout ce que j'avais pu te poster sur le sujet... Et visiblement tu n'as même pas reçu ma réponse à ton message perso🙁

Pour joindre ton fichier il te suffit de le zipper avec WinZip ou WinRar... De 89ko il devrait passer à moins de 40ko...

Cordialement

 

[lio62]

Re : boucler sur plusieurs feuilles

Bonjour,

mon fichier est déjà zipper, mais je vois ca dans la journée pour encore le diminuer mais je ne sais pas encore comment ?

ce qui 😡 c'est que je sais la vérité (pour ca!!) très proche et je m'emmele les pinceaux lol

merci a+

 

[lio62]

Re : boucler sur plusieurs feuilles

ReBonjour Spinolan

j'ai viré un max de choses sur le ficheir ensuite je l'ai RAR puis Zippé

ouf.

merci a+😎

 

[Spitnolan08]

Re : boucler sur plusieurs feuilles

Re,

Peux tu me renvoyer les derniers codes transmis (Définition de la feuille originelle et dernier post sur la Boucle) ? En espérant que tu les avais stockés...

Merci
Cordialement

 

[lio62]

Re : boucler sur plusieurs feuilles

Bonsoir Spinolan

je n'avais pas stocké le dernier code mais celui que tu m'avais fait avant fonctionne désormais, j'ai juste remplacé le if b= en if b> ce qui permet lorsqu'il arrive sur le colone 8 de copier les données et de passer a la feuille suivante en attaquant une nouvelle donnée dans la colonne 2 car avec le = il recopier 2 fois les memes données que se soit dans la colonne 2 ou 8 de la feuille qui précédait

en ce qui concerne le i = i+1 ca me permet l'incrémentation des feuilles sans problème.

le seul Hic que j'ai c'est ce problème de date , je vais essayer avec une listbox à la place d'une combo car a chaque fois j'ai le meme problème mm/jj/aaaa au lieu de jj/mm/aaaa.

dans un autre temps je voudrai recopier ces données dans un fichier nommé "controle" et avec les memes feuilles controle1,2,3 et les envoyer directement par email. je sais que l'on peut écrire dans des fichiers fermés mais j'ai trouvé un tuto a ce sujet je vais regarder.
par contre pour envoyer les emails je n'ai rien et au boulot je travaille en excel 2000


mais ce code tourne

ladate = [am1]
With Sheets("bd")
     Set LaPlage = .Range("b:b")
     End With

 i = 1
 b = 1
For Each cell In LaPlage

If cell.Value >= ladate Then

Sheets("CONTROLES" & i).Select
     cell.EntireRow.Offset(0, 0).Range("a2:x2").Copy              '
    
     b = b + 1
     Cells(2, b).PasteSpecial Paste:=xlValues, Transpose:=True
End If
[COLOR="Red"]If b > 8 Then
i = i + 1[/COLOR]
     Sheets("CONTROLES" & i).Select
     Range("b2").Select
     b = 1
     b = b + 1
     Cells(2, b).PasteSpecial Paste:=xlValues, Transpose:=True
     
    
End If

Next

en tous cas un grand merci pour ton code qui m'a vraiment mis sur la voie..



On peut mettre résolu quelque part ?

 

[Spitnolan08]

Re : boucler sur plusieurs feuilles

Re,
Tant mieux... Mais la prochaine fois joints un fichier tout de suite🙄

Pour le pb de date je vais regarder. C'est avec quel UF que tu as le souci ?
Edit : question bête car il n'y a qu'un UF avec combo...Par contre peux tu me rapeller quel était le problème...
Que tu utilises une combo ou une listbox tu auras probablement le même résultat...

Chez moi ta commande "saisie" bloque dès le départ elle renseigne la valeur du 1er combo puis s'arrête...

Cordialement

 

[lio62]

Re : boucler sur plusieurs feuilles

le problème c'est que les dates s'afichent dans l'userform JJ/MM/AAAA recopiées dans la base cela donne mm/JJ/aa pour les dates dont le jour ets < a 12 en plus j'avais la formule format (DD/MM/YYYY) mais lorsque l'on regarde dans la feuille BD la date est bien affichée mais dans la barre des formules elle est affichée mm/jj/aaaa donc a l'extraction c du grand n'importe quoi.


merci a+

j'espère que tu as pu lire mon semblant de fichier

 

[lio62]

Re : boucler sur plusieurs feuilles

Bonjour,


Je viens de relire, chez moi je n'ai aucun pb ca tourne tres bien, mais pour les dates je n'ai rien trouvé sur le web qui pourrait m'interesser.
Tu as raison listbox ou combo c pareil, il ne me reste que les checkbox !!!!!


merci bjr a+

 

[Pierrot93]

Re : boucler sur plusieurs feuilles

Re Lio

pour ton problème de date essaye d'utiliser la fonction "CDate", par contre j'ai du mal a voir la ligne de code qui te pose problème...

@+

 

[lio62]

Re : boucler sur plusieurs feuilles

re bonsoir Pierrot
c'est cette ligne qui me pose prob.

je suppose que tuas pu récupérer le fichier ?

 lf.Cells(noligne, 2) = lecontrole.List(lecontrole.ListIndex)
              lf.Cells(noligne, 2).NumberFormat = "dd/mm/yyyy"

merci a+

 

[Pierrot93]

Re : boucler sur plusieurs feuilles

Re Lio

Les lignes de code que tu indiques sont des tests "if"...

Je n'ai pas pu ouvrir ton fichier extension ".rar", je n'ai pas le logiciel.

Pour passer une valeur d'un textbox vers une cellule, essaye comme ceci :

Range("A1").Value = CDate(textbox1)

bonne soirée
@+

 

[lio62]

Re : boucler sur plusieurs feuilles

Bonjour, Pierrot

Autant pour moi ce ne sont pas des if c'est un L pas un I mais j'avoue fallait deviner

par contre ce n'est pas une textbox mais une combobox

 Set lf = Worksheets("bd")

merci a+

 

[Pierrot93]

Re : boucler sur plusieurs feuilles

Bonjour Lio

essaye le code ci dessous alors :

lf.Cells(noligne, 2) = CDate(lecontrole.List(lecontrole.ListIndex))

bonne journée
@+

 

[lio62]

Re : boucler sur plusieurs feuilles

RE BONJOUR

et MERCI

CA MARCHE c'est SUPER

ouf


un grand MERCI


A+