Envoi d'une feuille à une autre!

Question

Bonjour,

Je voudrais envoyer des donn&#233;es qui sont dans un tableau, dans un autre tableau

qui est dans une autre feuille, en la feuil2 &#224; la feuil1, sur Excel bien sur,

j'ai utilis&#233; cette m&#233;thode mais &#231;a marche pas, est ce que quelqu'un voit une erreur :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


For i = 23 To 47
    'Si la cellule lue est vide alors
    If Feuil4.Cells(i, 2) = "" Then
        'Je recopie les infos choisis
        Feuil4.Cells(i, 2) = Feuil2.Cells(i, 2)
        Feuil4.Cells(i, 3) = Feuil2.Cells(i, 3)
        Feuil4.Cells(i, 4) = Feuil2.Cells(i, 4)
        'sort de la boucle pour &#233;viter de les recopier plein de fois
        Exit For
    End If
Next


End Sub

merci d'avance

cs_trabice · Answer

lu
je ne s&#233; pa ou est ton pb m&#233; pkoi faire un exit for dans un for 23 to 47 ?
ca ne marchera k'une fois tu en es conscient?
For i = 23 To 47
    'Si la cellule lue est vide alors
    If Feuil4.Cells(i, 2) = "" Then
        'Je recopie les infos choisis
        Feuil4.Cells(i, 2) = Feuil2.Cells(i, 2)
        Feuil4.Cells(i, 3) = Feuil2.Cells(i, 3)
        Feuil4.Cells(i, 4) = Feuil2.Cells(i, 4)
        'sort de la boucle pour &#233;viter de les recopier plein de fois
        Exit For
    End If
Next

Bon courage
Fabrice

adn28 · Answer

j'ai pas compris ce que tu voulais dire, mais en j'ai chang&#233; la donne, 

je les ai mis dans un bouton mais quand je clique, &#231;a envoi que la 1ere ligne?

Alors que je veux tout envoyer en un seul click?

Private Sub cmdFin_Click()


For i = 23 To 47
    'Si la cellule lue est vide alors
    If Feuil4.Cells(i, 2) = "" Then
        'Je recopie les infos choisis
        Feuil4.Cells(i, 2) = Feuil2.Cells(i, 2)
        Feuil4.Cells(i, 3) = Feuil2.Cells(i, 3)
        Feuil4.Cells(i, 4) = Feuil2.Cells(i, 4)
        'sort de la boucle pour &#233;viter de les recopier plein de fois
        Exit For
    End If
Next


End Sub

Ext ce que t'as une solution?

Merci

cs_trabice · Answer

re
demande pkoi tu as mis un exit for..
enleve le et ca devrait marcher

fabrice

adn28 · Answer

ok merdi beaucoup c'&#233;tait tro con, tu vas rigoler mais jen pleins comme &#231;a

encore merci

mrdep1978 · Answer

Tu testes sur la mauvaise feuille + Tu essaies de copier les colonnes 2 à 4 des lignes poure lesquelles la colonne 2 est vide. Private Sub cmdFin_Click() For i = 23 To 47 'Si la cellule lue n'est pas vide alors ~~If Feuil4.Cells(i, 2) = "" Then~~ If Feuil2.Cells(i, 2) <> "" Then 'Je recopie les infos choisies Feuil4.Cells(i, 2) = Feuil2.Cells(i, 2) Feuil4.Cells(i, 3) = Feuil2.Cells(i, 3) Feuil4.Cells(i, 4) = Feuil2.Cells(i, 4) Else 'sort de la boucle pour éviter de les recopier plein de fois Exit For End If Next End Sub

cs_trabice · Answer

jolie remarque pr le feuil4 a la place de feuil2 mé je ne suis pas daccord pour le else exit for... For i = 23 To 47 'Si la cellule lue n'est pas vide alors ~~If Feuil4.Cells(i, 2) = "" Then~~ If Feuil2.Cells(i, 2) <> "" Then 'Je recopie les infos choisies Feuil4.Cells(i, 2) = Feuil2.Cells(i, 2) Feuil4.Cells(i, 3) = Feuil2.Cells(i, 3) Feuil4.Cells(i, 4) = Feuil2.Cells(i, 4) Else 'sort de la boucle pour éviter de les recopier plein de fois Exit For End If Next fabrice

cs_trabice · Answer

euh... la feuille de destination c Feuil4? dc il peut bien tester If Feuil4.Cells(i, 2) = "" Then mé il pourrait aussi test feuill2.cells(i,2)<> "" donc : If Feuil4.Cells(i, 2) = "" and feuill2.cells(i,2)<> "" then

mrdep1978 · Answer

Ben moi, je suis d'accord avec mon Else. 

Si pour une raison qc, il consid&#232;re qu'apr&#232;s la premi&#232;re ligne vide, il n'a plus d'autres lignes de donn&#233;es, il peut s'arr&#234;ter de parcourir le reste des lignes.

Tout d&#233;pend de ce qu'il veut copier et des trous qu'il peut avoir dans la zone &#224; copier.

cs_trabice · Answer

Si pour une raison qc, il consid&#232;re qu'apr&#232;s la premi&#232;re ligne vide, il n'a plus d'autres lignes de donn&#233;es, il peut s'arr&#234;ter de parcourir le reste des lignes.

oui en effet
pa bete du tout.
autant pour moi
fabrice

adn28 · Answer

Il faut juste enlever le "exit for" c'est tout et &#231;a marche

Merci comme m&#234;me les mecs

Envoi d'une feuille à une autre!

10 réponses

Discussions similaires