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

therse · 10 Juillet 2024

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.

Phil69970 · 10 Juillet 2024

Bonjour @therse
Edit Bonjour @wDog66

Je te propose ce fichier

Merci de ton retour

wDog66 · 10 Juillet 2024

Bonjour therse,

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

VB:

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 · 10 Juillet 2024

Bonjour @therse
Edit Bonjour @wDog66

Je te propose ce fichier

Merci de ton retour

therse · 10 Juillet 2024

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

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

therse

XLDnaute Nouveau

Pièces jointes

Phil69970

wDog66

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

Pièces jointes

therse

XLDnaute Nouveau

Discussions similaires