Problème boucle

Bonjour, j'ai un problème avec mon code,

Sub Rectangleàcoinsarrondis2_Cliquer()
Dim a As Integer
Dim d As Integer

Sheets("Feuil1").Range("E6:E7").Copy

If Sheets("param").Range("B3") = 1 Then
For a = 1 To 38
d = 3
    If Sheets("param").Range("C2") = a Then
    Sheets("BDD").Select
    Range("D" & d).End(xlToLeft)(1, 2).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End If
d = d + 2
Next a

Sheets("Feuil1").Range("E6:E7").ClearContents
End If
End Sub

Je souhaite copier les cellules ("E6:E7") de ma "Feuil1"

Si la cellule B3 de la feuille "param" = 1 alors

Si a = 1 alors copie en D3, si D3 non vide E3, etc ...

Si a = 2 alors copie en D5 ,si D5 non vide E5, etc...

Merci

Bonjour

Essaie en sortant l'instruction ''d = 3" de ta boucle :

d = 3
For a = 1 To 38
...

Bye !

merci gmb, ça fontionne pour la copie par contre ça réecris par dessus sans aller chercher la 1ere cellule vide dans la ligne

Bonjour,

Ce que tu fais revient à ça :

Sub Rectangleàcoinsarrondis2_Cliquer()
    Dim a%, d%
    If Sheets("param").Range("B3") = 1 Then
        Sheets("Feuil1").Range("E6:E7").Copy
        a = Sheets("param").Range("C2")
        d = a * 2 + 1
        Sheets("BDD").Range("D" & .Columns.Count).End(xlToLeft)(1, 2).PasteSpecial xlPasteValues
        Sheets("Feuil1").Range("E6:E7").ClearContents
    End If
End Sub

après correction des erreurs et épuration.

Si tu pouvais mettre un nom plus convivial à ta macro, et surtout l'indenter...

Merci MFerrand, mais j'ai une erreur :

.columns : référence incorrect ou non qualifiée.

Que veux tu dire par "nom plus convivial à ta macro, et surtout l'indenter"

Cordialement

Ah Oui ! j'ai zappé une correction : remplace

Sheets("BDD").Range("D" & .Columns.Count).End(xlToLeft)(1, 2).PasteSpecial xlPasteValues

par :

Sheets("BDD").Cells(d, .Columns.Count).End(xlToLeft)(1, 2).PasteSpecial xlPasteValues

On avait 2 colonnes et pas de lignes !!

Toujours pareil

Oh ! j'ai pas les yeux en face des trous !

Enlève le point devant .Columns (il ne réfère à rien, pas de With...)

ça fonctionne parfaitement, un grand merci à toi MFerrand, pour ton aide et le temps que tu m'as accordé.

Désolé pour les petits blocages imprévus, bien concentrés au même endroits.

Le point, l'habitude de le taper (en mettant la feuille en With) fait que je me piège souvent moi-même quand je tape sur une seule ligne (il faudrait répéter la feuille, mais là ce n'est pas gênant car ça peut référer à n'importe quelle feuille, elles ont toutes le même nombre de lignes et de colonnes), mais arriver à référencer une cellule avec 2 colonnes et sans ligne, ça m'était jamais arrivé.

Je crois que j'atteins la saturation... Je vais lâcher un peu !