trouvez l'erreur (y'a a pas 7, mais 1)

Question

Bon, c'est pas un jeu... voil&#224;, j'ai ce code qui ne fonctionne pas

En effet, il est senc&#233; remplir un tableau lorsqu'il trouve une r&#233;f&#233;rence identique. Si cette r&#233;f&#233;rence a d&#233;j&#224; des donn&#233;es, il ins&#232;re une ligne et remplie cette ligne suppl&#233;mentaire.

Le probl&#232;me, c'est que j'ai l'impression que ma boucle ne fini pas: si "nbr" a comme valeur 50, je vais avoir 50 lignes ins&#233;r&#233;es, au lieu d'une seule.

Bref, &#233;tant novice, j'imagine que des programmateurs comme vous sauront trouver l'erreur en quelques secondes.

Sub erreur()


'je copie les donn&#233;es &#224; ins&#233;rer sur le tableau
    Range("J5:P5").Copy
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\mr\Mes documents\Quiksilver ancienne version	ableau.xls"
    Range("AM2").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False


 ' nbr correspond au nombre de lignes du tableau
    Dim nbr As Integer


'je fais une boucle qui test la r&#233;f&#233;rence de chaque ligne
    Dim boucle As Integer
    nbr = Range("AC2")
    For boucle = 0 To nbr Step 1
    If Range("AM2") = Range("B10").Offset(boucle) Then
'si la r&#233;f&#233;rence n'a pas de donn&#233;es, alors je copie b&#234;tement...
        If Range("L10").Offset(boucle) = "" Then
        Range("AN2:AS2").Copy
        Range("L10").Offset(boucle).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
        Range("B10").Offset(boucle).Select
        End If
'si il y a d&#233;ja des donn&#233;es, j'ins&#232;re une ligne, fais de la mise en page, et copie ensuite
            If Range("L10").Offset(boucle) = Text Then
            Rows("10:10").Offset(boucle).Insert shift:=xlUp
            Range("B10:B11").Offset(boucle).MergeCells = True
            Range("D10:D11").Offset(boucle).MergeCells = True
            Range("E10:E11").Offset(boucle).MergeCells = True
            Range("F10:F11").Offset(boucle).MergeCells = True
            Range("G10:G11").Offset(boucle).MergeCells = True
            Range("H10:H11").Offset(boucle).MergeCells = True
            Range("I10:I11").Offset(boucle).MergeCells = True
            Range("J10:J11").Offset(boucle).MergeCells = True
            Range("B10:J11").Offset(boucle).VerticalAlignment = xlTop
            Range("AN2:AS2").Copy
            Range("L10").Offset(boucle).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
'j'efface ma 1er copie
        Range("AM2:AS2").ClearContents
            End If
    End If
Next boucle


'je ferme ma source
    Windows("fiche entreprise.xls").Activate
    Application.DisplayAlerts = False
    Windows("fiche entreprise.xls").Close
    Windows("tableau.xls").Activate
End Sub
---

Voil&#224;, merci d'avance

PS: j'ai d&#233;j&#224; pas mal post&#233; sur ce site, et ai eu de l'aide de la part de Sabrina, que je remercie, et m'excuse de ne pas avoir donn&#233; suite &#224; ma derni&#232;re demande, car j'ai pr&#233;f&#233;r&#233; abandonner les "boites de dialogues".. Merci Sabrina

JoePatent · Answer

Je ne comprend pas trop tes operations avec ton range AM2.

Mais voil&#224;...
If Range("AM2") = Range("B10").Offset(boucle) then
'si la r&#233;f&#233;rence n'a pas de donn&#233;es, alors je copie b&#234;tement...
        If Range("L10").Offset(boucle) = "" Then
        Range("AN2:AS2").Copy
        Range("L10").Offset(boucle).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
        Range("B10").Offset(boucle).Select
        End If
'si il y a d&#233;ja des donn&#233;es, j'ins&#232;re une ligne, fais de la mise en page, et copie ensuite
blablabala

tu as pas mit de else entre les deux...  Comment tu distingues avec ou sans donn&#233;es ?

Si tu entre pas dans ton IF principal, AM2 ne changera jamais.
http://www.joepatent.com

Trouvez l'erreur (y'a a pas 7, mais 1)

1 réponse

Discussions similaires