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

therse

XLDnaute Nouveau
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.
 

Pièces jointes

  • tuto1.xlsm
    18.5 KB · Affichages: 3

wDog66

XLDnaute Occasionnel
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+
 

Discussions similaires

Réponses
5
Affichages
122

Statistiques des forums

Discussions
313 322
Messages
2 097 145
Membres
106 851
dernier inscrit
Rv34