XL 2016 Modification de données en fonction d'une valeur

[therse]

Bon après-midi à tous,

Je viens aujourd'hui solliciter votre aide sur un problème concernant le VBA ( je ne m'en sors pas vraiment). Alors dans le fichier en PJ vous avez une plage de données et je souhaite parcourir cette plage sur chaque ligne et rechercher la dernière cellule à être non vide ( contenir * ou 1) et lorsque la cellule est identifier copier la valeur de la cellule qui se trouve dans le ligne 2 de la colonne concernée et la remplacer dans la cellule de la colonne B correspondante.
Merci beaucoup pour votre aide.

 

[wDog66]

Bonjour therse,

Il ne manquait pas grand chose, voici le code rectifié 😉

Sub essai1()
  'Dim onglet as Worksheet
  Dim cln As Long, lgn As Long, mda As String
  ApplicationSreenUpdating = False
  For lgn = 3 To Range("B" & Rows.Count).End(xlUp).Row
    For cln = 3 To Cells(lgn, Columns.Count).End(xlToLeft).Column
      If Cells(lgn, cln) <> "" Then
        Range("B" & lgn).Value = Cells(2, cln).Value
      End If
    Next cln
  Next lgn
  ApplicationSreenUpdating = True
End Sub

A+

 

[Phil69970]

Bonjour @therse
Edit Bonjour @wDog66

Je te propose ce fichier

Merci de ton retour

 

[therse]

Merci beaucoup pour vos retours , ça a résolu mon problème