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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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

Trier par date Trier par votes
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.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
Déplacer données en vba
Réponses
3
Affichages
428
akm
A
F
  • Question Question
Microsoft 365 Vba : copier certaines cellules suivant la valeur d'une autre
Réponses
2
Affichages
179
mapomme
F
  • Question Question
Autres Sélectionner une plage de cellule en VBA
Réponses
9
Affichages
163
patricktoulon
A
  • Question Question
XL 2010 Surligner texte en fonction d'une valeur en cellule K
Réponses
7
Affichages
253
ascal44
A
J
  • Question Question
XL 2016 recherche d'une valeur en fonction d'une plage de données
Réponses
2
Affichages
155
jeff2318
J
T
  • Question Question
Microsoft 365 Identifier si une cellule contient une valeur parmi une liste de valeur
Réponses
5
Affichages
211
TRANSPLANT69
T
T
  • Résolu(e)
XL 2016 Extraction de valeur consécutive dans une plage de données
Réponses
2
Affichages
449
therse
T
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
490
sylvanu
S
  • Question Question
Microsoft 365 code vba pour chaine de caractère
Réponses
4
Affichages
318
vgendron
D
  • Résolu(e)
Microsoft 365 Validation de données sous condition
Réponses
8
Affichages
303
drop91
D
M
  • Résolu(e)
XL 2021 Verrouillage de cellules après exécution d'une macro
2
Réponses
15
Affichages
286
job75
G
  • Résolu(e)
XL 2021 Transformer une formule en vba
2
Réponses
20
Affichages
551
kiki29
R
  • Question Question
XL pour MAC Rechercher une valeur non vide
Réponses
4
Affichages
115
sylvanu
  • Résolu(e)
XL 2021 Liste de validation de données à partir d'une table
Réponses
3
Affichages
298
Zdz16
M
  • Question Question
XL 2021 Automatiser Changements des plages de données Graphique
Réponses
0
Affichages
124
Michel_ja
M
K
  • Question Question
XL 2016 VBA: Selection Date renvoie copier/coller
Réponses
8
Affichages
912
Krome36
K
R
  • Résolu(e)
XL 2010 vba excel : recherche concordance chaine texte dans cellule et données stockées dans un tablo (array)
Réponses
4
Affichages
195
Raynaud.JF
R
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
2 K
NONO14
N
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
281
eric72
E
A
  • Résolu(e)
XL 2019 Optimisation code VBA (Icônes flottantes)
Réponses
14
Affichages
400
Amilo
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…