Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

T

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
Trier par date Trier par votes

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+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
5
Affichages
230
Faroyo
F
E
  • Résolu(e)
Microsoft 365 Ajouter dans TS en fonction valeur de cellule
Réponses
8
Affichages
243
vgendron
  • Question
XL 2021 VBA Ajout d'une valeur en heure dans une cellule
2
Réponses
21
Affichages
453
TooFatBoy
N
  • Question
XL 2013 Fixer la valeur d'une cellule saisie en fonction d'un nombre de décimal défini
Réponses
6
Affichages
204
mapomme
  • Question
XL 2016 Convertir Fonction Excel en VBA
2
Réponses
16
Affichages
724
Dranreb
T
  • Question
XL 2013 Colonne dynamique en fonction de choix d'une liste déroulante
Réponses
5
Affichages
360
JHA
J
O
  • Question
XL 2019 Optimiser la loudeur de mon code VBA
Réponses
1
Affichages
201
Dranreb
S
  • Résolu(e)
Microsoft 365 Reporter le contenu d'une plage dans une cellule selon un ordre précis
Réponses
4
Affichages
70
sebastien176
S
  • Question
Microsoft 365 VBA : copier / coller d'un onglet à l'autre en fonction d'une valeur
Réponses
8
Affichages
422
Lisette
  • Question
XL 2019 faire apparaitre une image en fonction d'une valeur vrai
2
Réponses
16
Affichages
591
aspect
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…