Copier/coller dans ligne suivante vide

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

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+

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

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.

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

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

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+

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.

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+

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