Ligne esquivée Résolu

Question

Bonjour, 

J'ai un problème que j'avais encore jamais vu. A cette ligne Worksheets(1).Range(colonne & ligne) = "test" il ne me l’exécute que en mode débug. Ne faite pas attention aux msgBox c'était pour être sur, les message box s'execute totalement mais la ligne entre ne fais strictement rien. ( Sauf en mode débug) idée ?

Cette macro était censer copier les colonnes d'une feuille à une autre, et si la prochaine valeur n'est pas la même que la précèdente il saute une ligne. (Pour le débug il met juste test à la ligne ou il doit sauter).

For Each cell In rangeCode    'MsgBox (StrComp(codeActuel, cell.Value, vbTextCompare) = -1)    If (StrComp(codeActuel, cell.Value, vbTextCompare) = -1) Then        ligne = cell.Row        colonne = Split(cell.Address, "$")(1)        MsgBox (colonne)        MsgBox (ligne)        Worksheets(1).Range(colonne & ligne) = "test"        MsgBox ("osef de la ligne")    End If    Worksheets(1).Range("B" & cell.Row - 3) = Worksheets(2).Range("B" & cell.Row)    codeActuel = cell.Value    Next

ThauTheme · Answer

Bonjour Shadorb, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
For Each cell In rangeCode
    'MsgBox (StrComp(codeActuel, cell.Value, vbTextCompare) = -1)
    If (StrComp(codeActuel, cell.Value, vbTextCompare) = -1) Then
        ligne = cell.Row
        colonne = Cells.Column 'Split(cell.Address, "$")(1)
        MsgBox (colonne)
        MsgBox (ligne)
        Worksheets(1).Cells(ligne, colonne) = "test"
        MsgBox ("osef de la ligne")
    End If
    Worksheets(1).Range("B" & cell.Row - 3) = Worksheets(2).Range("B" & cell.Row)
    codeActuel = cell.Value
Next
End Sub

Ligne esquivée

1 réponse

Votre réponse

Discussions similaires