VBA Problème avec For

[Arpette]

Bonsoir à toutes et à tous,

j'ai un problème dans mon code ci-dessous. Je n'arrive pas à trouver la boucle qui me permettrait après avoir renseigné (i,4) renvoyer la valeur de (i2) en (j,1). J'ai bien essayé avec for, mais çà ne peux pas marcher.

Merci pour votre aide.

Sub Concatene()
With Sheets("plct type essai")
    
    For i = 5 To 14
        
        If .Cells(i, 2) <> "" And .Cells(i, 3) <> "" Then
            .Cells(i, 4).Value = .Cells(i, 2).Value & .Cells(i, 3).Value
            
        End If
        For j = 18 To 27
            .Cells(j, 1).Value = .Cells(i, 2).Value
        Next j
    Next i
         
End With
End Sub

 

[kjin]

Re : VBA Problème avec For

bonsoir,
Pas sûr mais bon...

With Sheets("plct type essai")
    For i = 5 To 14
        If .Cells(i, 2) <> "" And .Cells(i, 3) <> "" Then
            .Cells(i, 4).Value = .Cells(i, 2).Value & .Cells(i, 3).Value
            .Cells(i + 13, 1).Value = .Cells(i, 2).Value
        End If
    Next i
End With
End Sub

A+
kjin

 

[Arpette]

Re : VBA Problème avec For

bonsoir,
Pas sûr mais bon...

With Sheets("plct type essai")
    For i = 5 To 14
        If .Cells(i, 2) <> "" And .Cells(i, 3) <> "" Then
            .Cells(i, 4).Value = .Cells(i, 2).Value & .Cells(i, 3).Value
            .Cells(i + 13, 1).Value = .Cells(i, 2).Value
        End If
    Next i
End With
End Sub

A+
kjin

Bonsoir Kjin, merci c'est simple et nickel
@+