Copier/coller dans ligne suivante vide

Résolu

wuhrlinanthony Messages postés 57 Statut Membre -
Le Pingou Messages postés 12639 Statut Contributeur - 14 sept. 2015 à 18:06

Bonjour, j'aurai besoin de votre aide.

J'ai cherché sur le site avant de poser cette question mais je ne suis pas arriver a utiliser ce que je trouvais pour mon cas.

Je voudrais copier des données de la feuille 1 et les coller dans la feuille 2 en collant a chaque fois sur la cellule suivante vide car mon premier tableau a des cellules vides et et je ne veux pas les copier.

Et cela pour plusieurs tableau l'un en-dessous de l'autre.

Je suis arriver a créer la macro pour un tableau qui copie les données sans laisser de cellules vides mais avec un autre tableau en dessous, cela créer des erreurs.

Je vous joint ce fichier : https://www.cjoint.com/c/EIomVvEhXOU

Cela vous parlera plus ^^

Merci beaucoup pour ce qui peuvent m'aider.

Afficher la suite

A voir également:

Copier du vide
Supprimer page word vide - Guide
Comment copier une vidéo youtube - Guide
Caractere vide - Guide
Super copier - Télécharger - Gestion de fichiers
Coeur vide ✓ - Forum Facebook

5 réponses

Réponse 1 / 5

Le Pingou Messages postés 12639 Statut Contributeur 1 461

Bonjour,
Petite question : est-ce que les 3 tableaux de la feuille 1 sont fixes .... ?

Vous dites : Je suis arrivé à créer la macro pour un tableau qui copie...
Mais elle est invisible dans votre exemple.... !

Salutations.
Le Pingou

wuhrlinanthony Messages postés 57 Statut Membre

Qu'est ce que tu veux dire par fixe ? Modifiable ? Malheureusement je ne peux pas les changer de place ou de style de tableau .

Zoul67 Messages postés 2001 Statut Membre 149

Bonjour,

C'est bien dommage qu'on ne puisse pas changer leur style.
Nom / Taille / Réponse1 / Réponse2 / Réponse3
serait tellement plus joli et facilement exploitable.

A+

wuhrlinanthony Messages postés 57 Statut Membre

Bonjour,

Oui je suis d'accord, mais je n'ai pas le dernier mot..(mon boss). Donc si quelqu'un peut m'aider avec mon cas s.v.p. je pourrais apprendre un peu plus en VBA.

Merci.

wuhrlinanthony

Réponse 2 / 5

Le Pingou Messages postés 12639 Statut Contributeur 1 461

Bonjour,
pour bien commencer bonjour.

Il est fixe donc pas d'ajout de ligne pour des nouvelles données.

Ou est votre essai de macro ....!

wuhrlinanthony Messages postés 57 Statut Membre

Désolé , j'avais fait un fichier avec et sans macro .

https://www.cjoint.com/c/EIonCZT1apU

Voila le lien. Le code peut faire mal au yeux ^^, je débute en vba donc c'est assez basique.

Zoul67 Messages postés 2001 Statut Membre 149

Même joueur joue encore : toujours pas de macro dans ce fichier.

wuhrlinanthony Messages postés 57 Statut Membre

Vraiment désolé ! Je viens de voir, j'ai du faire une erreur , je l'ai perdue.

Je l'écris ici , ca sera plus simple :

Sub Synthèse()

Dim C As Long

For C = 4 To 16
'Question 1

If Sheets("Feuil1").Cells(5, C).Value <> 0 Then

If Sheets("Feuil1").Cells(5, C) < 1.60 Then

Sheets("Feuil1").Cells(4, C).Copy
Sheets("Feuil2").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Sheets("Feuil1").Cells(6, C).Copy
Sheets("Feuil2").Range("C65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

ElseIf Sheets("Feuil1").Cells(5, C) >= 1.60 And WsTr.Cells(5, C) <= 1.90

Sheets("Feuil1").Cells(4, C).Copy
Sheets("Feuil2").Range("E65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Sheets("Feuil1").Cells(6, C).Copy
Sheets("Feuil2").Range("F65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

ElseIf Sheets("Feuil1").Cells(5, C) >1.90 Then

Sheets("Feuil1").Cells(4, C).Copy
Sheets("Feuil2").Range("H65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Sheets("Feuil1").Cells(6, C).Copy
Sheets("Feuil2").Range("I65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

End If
End If
Next

End Sub

Zoul67 Messages postés 2001 Statut Membre 149

Anthony,

Plutôt que de copier du code à réutiliser, essaie de comprendre... 65536 était le dernière ligne d'un fichier Excel dans des versions antérieures. xlUp fait vérifier vers le haut quelle est la dernière cellule non vide. Ce serait utilisable si tu remplaçais 65536 par la dernière ligne de chaque tableau de synthèse (Q1, Q2, Q3), sinon tu remplis systématiquement le dernier.

Bon, je propose un autre code :

Sub Synthese()

Dim C As Long
r1 = 6
r2 = 13
r3 = 19

p1 = 7
m1 = 7
g1 = 7

p2 = 31
m2 = 31
g2 = 31

p3 = 54
m3 = 54
g3 = 54

For C = 4 To 16
    'Question1
    r = r1
    taille = Sheets("Feuil1").Cells(r - 1, C).Value
    If taille <> 0 Then
        If taille < 1.6 Then
            Sheets("Feuil2").Cells(p1, 2).Value = Sheets("Feuil1").Cells(r - 2, C).Value
            Sheets("Feuil2").Cells(p1, 3).Value = Sheets("Feuil1").Cells(r, C).Value
            p1 = p1 + 1
        ElseIf taille > 1.9 Then
            Sheets("Feuil2").Cells(g1, 5).Value = Sheets("Feuil1").Cells(r - 2, C).Value
            Sheets("Feuil2").Cells(g1, 6).Value = Sheets("Feuil1").Cells(r, C).Value
            g1 = g1 + 1
        Else
            Sheets("Feuil2").Cells(m1, 8).Value = Sheets("Feuil1").Cells(r - 2, C).Value
            Sheets("Feuil2").Cells(m1, 9).Value = Sheets("Feuil1").Cells(r, C).Value
            m1 = m1 + 1
        End If
    End If
    'Question2
    r = r2
    taille = Sheets("Feuil1").Cells(r - 1, C).Value
    If taille <> 0 Then
        If taille < 1.6 Then
            Sheets("Feuil2").Cells(p2, 2).Value = Sheets("Feuil1").Cells(r - 2, C).Value
            Sheets("Feuil2").Cells(p2, 3).Value = Sheets("Feuil1").Cells(r, C).Value
            p2 = p2 + 1
        ElseIf taille > 1.9 Then
            Sheets("Feuil2").Cells(g2, 5).Value = Sheets("Feuil1").Cells(r - 2, C).Value
            Sheets("Feuil2").Cells(g2, 6).Value = Sheets("Feuil1").Cells(r, C).Value
            g2 = g2 + 1
        Else
            Sheets("Feuil2").Cells(m2, 8).Value = Sheets("Feuil1").Cells(r - 2, C).Value
            Sheets("Feuil2").Cells(m2, 9).Value = Sheets("Feuil1").Cells(r, C).Value
            m2 = m2 + 1
        End If
    End If
    'Question3
    r = r3
    taille = Sheets("Feuil1").Cells(r - 1, C).Value
    If taille <> 0 Then
        If taille < 1.6 Then
            Sheets("Feuil2").Cells(p3, 2).Value = Sheets("Feuil1").Cells(r - 2, C).Value
            Sheets("Feuil2").Cells(p3, 3).Value = Sheets("Feuil1").Cells(r, C).Value
            p3 = p3 + 1
        ElseIf taille > 1.9 Then
            Sheets("Feuil2").Cells(g3, 5).Value = Sheets("Feuil1").Cells(r - 2, C).Value
            Sheets("Feuil2").Cells(g3, 6).Value = Sheets("Feuil1").Cells(r, C).Value
            g3 = g3 + 1
        Else
            Sheets("Feuil2").Cells(m3, 8).Value = Sheets("Feuil1").Cells(r - 2, C).Value
            Sheets("Feuil2").Cells(m3, 9).Value = Sheets("Feuil1").Cells(r, C).Value
            m3 = m3 + 1
        End If
    End If
Next C

End Sub

A+

wuhrlinanthony Messages postés 57 Statut Membre > Zoul67 Messages postés 2001 Statut Membre

Zoul 67,

Merci beaucoup pour ton code. Dans mon ancien code je savais que 65536 que c'était la dernière ligne d'un fichier Excel mais je ne voyais pas comment passer sur la question d'après. xlUp fait vérifier vers le haut (je le savais aussi ^^) mais quand je mettait xlDown Excel me mettait une erreur. C'est pour cela que je ne comprenait pas .

En tout cas merci beaucoup, ca me permet de mieux comprendre la vision qu'il faut pour créer un code.

Au revoir.

Réponse 3 / 5

Le Pingou Messages postés 12639 Statut Contributeur 1 461

Bonjour,
Je suis aussi désolé que vous mais le code n'y est pas ..... !
Faites donc un petit détour par là ...

wuhrlinanthony Messages postés 57 Statut Membre

Bonjour ,

Veuillez m'excuser d'avoir oublier les formules de politesses, j'ai réécris rapidement la macro pour que ce soit plus compréhensible avec le fichier Excel . Votre aide m'est important car j'apprend petit à petit le code vba mais il y a des choses encore trop compliquer pour moi. En tout cas j'essaye de faire mon maximum pour apprendre.

Merci d'avance de votre aide que vous voudriez bien me donner pour mon problème.

Réponse 4 / 5

wuhrlinanthony Messages postés 57 Statut Membre

Bonjour,

Voila finalement le fichier excel avec la macro :

https://www.cjoint.com/c/EIoohpcGrvU

Si vous pouvez y jeter un coup d'oeil s.v.p., ce serait super.

Merci.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

Le Pingou Messages postés 12639 Statut Contributeur 1 461

Bonjour,
Merci pour les informations.
Je vais regarder votre code et y apporter les adaptations nécessaires pour votre application.
Patience, dans la soirée.

Zoul67 Messages postés 2001 Statut Membre 149

Bonjour Le Pingou,

J'ai répondu là : https://forums.commentcamarche.net/forum/affich-32529489-copier-coller-dans-ligne-suivante-vide#12

Peut-être n'as-tu pas besoin de te casser la tête...

A+

Le Pingou Messages postés 12639 Statut Contributeur 1 461

Bonjour,
Merci c'est sympa.
Cependant il me semble qu'il écrase les données si on veut inscrire de nouvelles valeurs du questionnaire...!

Salutations.
Le Pingou

Discussions similaires

le frigo ne marche pas....

dessin avec symbole clavier

Internat nourriture

♡ Coeur vide : Comment le faire ? (Solution !)

raccourci coeur blanc

Votre réponse

Discussions similaires