Microsoft 365 VBA - Recherche valeur dans un tableau et ajout texte

Créer une discussion
Répondre

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

ted1057

XLDnaute Occasionnel
Bonjour,

Je cherche à modifier un fichier de débit que j'ai récupéré. J'ai une liste de longueur de coupe sur laquelle est associé un repère. J'aimerais pouvoir ajouter au débit cette désignation de repérage.
Exemple :
nombrelongueur du coupe (mm)REPQtéReste
5144831x1884x1448

Je cherche à obtenir : 4x1448 - Rep : 3

Cela pour toutes les lignes du tableau

Merci de vos retours

Cordialement,
 

Pièces jointes

Trier par date Trier par votes
job75 à dit:
Bonsoir ted1057,

Le repère est bien tranquille en colonne F, pourquoi vouloir l'introduire en colonnes I ou J ?

Car alors il faut des formules dans ces colonnes, ou du VBA.

A+
Cliquez pour agrandir...
Bonjour,

Merci de ta réponse,

Je suis d'accord avec toi le Repère est bien au chaud dans sa colonne. Pour mon exemple, il n'y a que quelques lignes mais je peux être amené à devoir effectuer un débit de plus de 100 lignes et ainsi retrouver la bonne longueur dans le débit peut être long et fastidieux pour un rangement par repère. De plus, j'aurais besoin de cette information pour la nouvelle machine que mon entreprise vient d'acquérir.

D'ou ma demande si il y avait une possibilité d'effectuer cette étape sous VBA.

Cordialement,
 
Vote positif 0 Vote négatif
Bonjour ted1057, le forum,

La macro affectée au bouton :
VB: 
Sub MAJ()
Dim c As Range, v
Application.ScreenUpdating = False
For Each c In Range("F2", Range("F" & Rows.Count).End(xlUp)(2))
    If c <> "" Then
        If c(1, 4) <> "" Then
            v = Left(c(1, 4), InStr(c(1, 4) & " ", " ") - 1)
            c(1, 4) = v & " - Rep : " & c
        End If
        If c(1, 5) <> "" Then
            v = Left(c(1, 5), InStr(c(1, 5) & " ", " ") - 1)
            c(1, 5) = v & " - Rep : " & c
        End If
    End If
Next
Columns("I:J").AutoFit 'ajustement largeurs
End Sub
La macro peut être exécutée plusieurs fois de suite sans inconvénient.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
job75 à dit:
Bonjour ted1057, le forum,

La macro affectée au bouton :
VB: 
Sub MAJ()
Dim c As Range, v
Application.ScreenUpdating = False
For Each c In Range("F2", Range("F" & Rows.Count).End(xlUp)(2))
    If c <> "" Then
        If c(1, 4) <> "" Then
            v = Left(c(1, 4), InStr(c(1, 4) & " ", " ") - 1)
            c(1, 4) = v & " - Rep : " & c
        End If
        If c(1, 5) <> "" Then
            v = Left(c(1, 5), InStr(c(1, 5) & " ", " ") - 1)
            c(1, 5) = v & " - Rep : " & c
        End If
    End If
Next
Columns("I:J").AutoFit 'ajustement largeurs
End Sub
La macro peut être exécutée plusieurs fois de suite sans inconvénient.

A+
Cliquez pour agrandir...
Bonjour,

Merci pour ta réponse, j'ai un soucis dans le fonctionnement de la macro.
Les numéros de repères ne sont pas affecté à la bonne longueur.
Dans le fichier, nous avons 1448mm qui est toujours affectée au Rep3 peut importe ou se trouve cette longueur dans le débit.
Ci joint, un fichier avec le résultat à obtenir sachant que le nombre de débit peut dépasser les 2 colonnes.


Cordialement,
 

Pièces jointes

Vote positif 0 Vote négatif
Alors cette version (2) qui utilise le Dictionary :
VB: 
Sub MAJ()
Dim d As Object, c As Range, v, s
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
For Each c In Range("E2", Range("E" & Rows.Count).End(xlUp)(2))
    If c <> "" And c(1, 2) <> "" Then d(CStr(c)) = c(1, 2)
Next c
For Each c In Range("I2", Range("I" & Rows.Count).End(xlUp)(2))
    If c <> "" Then
        v = Left(c, InStr(c & " ", " ") - 1)
        s = Split(v, "x")
        If UBound(s) > 0 Then c = v & " - Rep : " & d(s(1))
    End If
Next c
For Each c In Range("J2", Range("J" & Rows.Count).End(xlUp)(2))
    If c <> "" Then
        v = Left(c, InStr(c & " ", " ") - 1)
        s = Split(v, "x")
        If UBound(s) > 0 Then c = v & " - Rep : " & d(s(1))
    End If
Next c
Columns("I:J").AutoFit 'ajustement largeurs
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
job75 à dit:
Alors cette version (2) qui utilise le Dictionary :
VB: 
Sub MAJ()
Dim d As Object, c As Range, v, s
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
For Each c In Range("E2", Range("E" & Rows.Count).End(xlUp)(2))
    If c <> "" And c(1, 2) <> "" Then d(CStr(c)) = c(1, 2)
Next c
For Each c In Range("I2", Range("I" & Rows.Count).End(xlUp)(2))
    If c <> "" Then
        v = Left(c, InStr(c & " ", " ") - 1)
        s = Split(v, "x")
        If UBound(s) > 0 Then c = v & " - Rep : " & d(s(1))
    End If
Next c
For Each c In Range("J2", Range("J" & Rows.Count).End(xlUp)(2))
    If c <> "" Then
        v = Left(c, InStr(c & " ", " ") - 1)
        s = Split(v, "x")
        If UBound(s) > 0 Then c = v & " - Rep : " & d(s(1))
    End If
Next c
Columns("I:J").AutoFit 'ajustement largeurs
End Sub
Cliquez pour agrandir...
OMG c'est super cela marche trop bien,
merci énormément
 
Vote positif 0 Vote négatif
ted1057 à dit:
sachant que le nombre de débit peut dépasser les 2 colonnes.
Cliquez pour agrandir...
Alors utilisez plutôt cette version (3) :
VB: 
Sub MAJ()
Dim d As Object, c As Range, v, s, col%, plage As Range
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
For Each c In Range("E2", Range("E" & Rows.Count).End(xlUp)(2))
    If c <> "" And c(1, 2) <> "" Then d(CStr(c)) = c(1, 2)
Next c
For col = 9 To 256
    Set plage = Range(Cells(2, col), Cells(Rows.Count, col).End(xlUp)(2))
    If Application.CountA(plage) = 0 Then Exit For
    For Each c In plage
        If c <> "" Then
            v = Left(c, InStr(c & " ", " ") - 1)
            s = Split(v, "x")
            If UBound(s) > 0 Then c = v & " - Rep : " & d(s(1))
        End If
Next c, col
Columns("I:IV").AutoFit 'ajustement largeurs
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
job75 à dit:
Alors utilisez plutôt cette version (3) :
VB: 
Sub MAJ()
Dim d As Object, c As Range, v, s, col%, plage As Range
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
For Each c In Range("E2", Range("E" & Rows.Count).End(xlUp)(2))
    If c <> "" And c(1, 2) <> "" Then d(CStr(c)) = c(1, 2)
Next c
For col = 9 To 256
    Set plage = Range(Cells(2, col), Cells(Rows.Count, col).End(xlUp)(2))
    If Application.CountA(plage) = 0 Then Exit For
    For Each c In plage
        If c <> "" Then
            v = Left(c, InStr(c & " ", " ") - 1)
            s = Split(v, "x")
            If UBound(s) > 0 Then c = v & " - Rep : " & d(s(1))
        End If
Next c, col
Columns("I:IV").AutoFit 'ajustement largeurs
End Sub
Cliquez pour agrandir...
Trop bien,
Grand merci à vous
 
Vote positif 0 Vote négatif
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

V
  • Résolu(e)
Microsoft 365 Barre de recherche : comment rendre éditable le résultat ?
2 3 4
Réponses
52
Affichages
711
dysorthographie
dysorthographie
Z
  • Question Question
Microsoft 365 Recherche d'une valeur max dans un tableau représentant des paliers
Réponses
3
Affichages
209
zedude
Z
T
  • Résolu(e)
XL 2013 Recherche de Valeurs Approximatives dans un Tableau Excel
Réponses
2
Affichages
558
job75
job75
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
290
AtTheOne
AtTheOne
S
  • Résolu(e)
XL 2016 Comment faire ressortir la ligne sélectionnée dans un tableau
Réponses
2
Affichages
513
Stéphane_1
S
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
1 K
GClaire
G
B
  • Question Question
Microsoft 365 Alimenter combobox et ajouter la valeur si non inscrit dans la liste
Réponses
5
Affichages
607
sousou
sousou
J
  • Question Question
Microsoft 365 affiché une valeur texte dans un cellule
Réponses
1
Affichages
730
Gen Rose
Gen Rose
B
  • Question Question
XL 2016 Macro pour identifier un texte dans un tableau et appliquer une modification sur une cellule sur la même ligne
Réponses
5
Affichages
528
ChTi160
ChTi160
H
  • Question Question
XL 2019 Récupérer une valeur en abscisse et ordonnée d'un tableau en fonction de la valeur dans le tableau, qui elle dépend d'une autre cellule.
Réponses
8
Affichages
2 K
yal
Y
C
  • Résolu(e)
XL 2021 Liste dans liste
2 3
Réponses
36
Affichages
3 K
TooFatBoy
TooFatBoy
S
  • Résolu(e)
XL 2019 Recherche valeur dans un tableau et décale
Réponses
5
Affichages
615
sylvanu
sylvanu
A
  • Question Question
Microsoft 365 Recherche une valeurs dans un tableau croisé
Réponses
5
Affichages
573
chris
chris
M
  • Question Question
XL 2016 extraire les données dans tableau excel et les copier dans un autre
Réponses
3
Affichages
666
melltel
M
L
  • Résolu(e)
Microsoft 365 Recherche dans un tableau en fonction de 2 critères et fonction compter valeur texte en nombre
Réponses
4
Affichages
1 K
AC045364
A
C
  • Résolu(e)
XL 2019 Recherche une valeur dans une feuille et renvois à la valeur adjacente
Réponses
3
Affichages
694
mapomme
mapomme
L
  • Question Question
XL 2019 Macro : Placement d'un texte dans un tableau : VBA impératif
Réponses
11
Affichages
987
limagerit
L
Y
  • Question Question
Microsoft 365 Problème de dernière ligne dans un tableau
2
Réponses
19
Affichages
2 K
Cousinhub
Cousinhub
M
  • Résolu(e)
XL 2016 aide pour un tableau excel (conditions, et/ou, texte)
Réponses
8
Affichages
627
mapomme
mapomme
R
  • Résolu(e)
XL 2016 VBA - Copier plusieurs lignes dans un tableau structuré
Réponses
7
Affichages
1 K
Rhyukane
R
Retour