copier sur lignes visibles Résolu/Fermé

Question

Bonjour, 

J'ai écrit une macro pour copier et coller la valeur d'une cellule.
Elle ne fonctionne que sur la ligne 27 (la 1e valeur de i), je ne comprends pas ce que je dois changer.

Par ailleurs, j'aimerais qu'au final la macro ne prenne en considération que les lignes visibles de l'onglet "EXPORT" (afin de réduire le temps de fonctionnement)

Dim Nomarticle As String, i As Long, j As Long    Worksheets("EXPORT").Activate  Application.ScreenUpdating = False  With Worksheets("QUOTATION")    For i = 27 To 189            Nomarticle = Range("D" & i)            For j = 17 To 243                If Worksheets("QUOTATION").Range("B" & j) = Nomarticle Then                    Worksheets("EXPORT").Range("J" & i) = Worksheets("QUOTATION").Range("E" & j)                Else                    Worksheets("EXPORT").Range("J" & j) = "indiquer prix"                End If            Exit For        Next j        Next i      End WithEnd Sub

Je vous remercie pour votre aide !!

fred · Answer

Bonjour Tuline,

Je te propose ce code VBA :

Option Explicit

Sub nom_article()
  Dim NomArticle As String, i As Long, j As Long
  Worksheets("EXPORT").Activate
  Application.ScreenUpdating = False
  With Worksheets("QUOTATION")
    For i = 27 To 189
      NomArticle = Range("D" & i)
      For j = 17 To 243
        If .Range("B" & j) = NomArticle Then
          Worksheets("EXPORT").Range("J" & j) = .Range("E" & i)
        Else
          Worksheets("EXPORT").Range("J" & j) = "indiquer prix"
        End If
        Exit For
      Next j
    Next i
  End With
End Sub

Cordialement

Copier sur lignes visibles

1 réponse

Discussions similaires