Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel CreateObject("Scripting.Dictionary")

CreateObject("Scripting.Dictionary")

3 réponses
Avatar
Ptck
Bonsoir j'ai ce bout de code
je compare 2 tableaux mais dans l'un je peux avoir les infos en minuscule
pour les clées
comment mettre toutes les clés du premier tableau an majuscule
merci pour votre aide
ptck

Set dico = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(fr)

If dico.Exists(fr(i, 1)) Then MsgBox " l'article " & fr(i, 1) & "
est en double dans l'onglet <" & f1.Name & ">" & " ligne => " & i + 1: Exit
Sub
dico.Add (fr(i, 1)), i:
Next
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pounet95
Bonsoir,

Si je lis bien ..... remplace fr(i,1) par UCASE(fr(i,1))
Pounet95


"Ptck" a écrit dans le message de groupe de discussion
:
Bonsoir j'ai ce bout de code
je compare 2 tableaux mais dans l'un je peux avoir les infos en minuscule
pour les clées
comment mettre toutes les clés du premier tableau an majuscule
merci pour votre aide
ptck

Set dico = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(fr)

If dico.Exists(fr(i, 1)) Then MsgBox " l'article " & fr(i, 1) & "
est en double dans l'onglet <" & f1.Name & ">" & " ligne => " & i + 1:
Exit Sub
dico.Add (fr(i, 1)), i:
Next



Avatar
Ptck
ok merci
après a macro fait un tableau à 6 colonnes je doit le mettre ucase aussi


"Pounet95" a écrit dans le message de news:

Bonsoir,

Si je lis bien ..... remplace fr(i,1) par UCASE(fr(i,1))
Pounet95


"Ptck" a écrit dans le message de groupe de
discussion :
Bonsoir j'ai ce bout de code
je compare 2 tableaux mais dans l'un je peux avoir les infos en minuscule
pour les clées
comment mettre toutes les clés du premier tableau an majuscule
merci pour votre aide
ptck

Set dico = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(fr)

If dico.Exists(fr(i, 1)) Then MsgBox " l'article " & fr(i, 1) & "
est en double dans l'onglet <" & f1.Name & ">" & " ligne => " & i + 1:
Exit Sub
dico.Add (fr(i, 1)), i:
Next





Avatar
Pounet95
Re,

Je ne sais pas ! A toi de voir si le besoin existe ets 'il y a une
quelconque utilité à le faire après

Bonne soirée
Pounet95


"Ptck" a écrit dans le message de groupe de discussion
: OKKXK$
ok merci
après a macro fait un tableau à 6 colonnes je doit le mettre ucase aussi


"Pounet95" a écrit dans le message de news:

Bonsoir,

Si je lis bien ..... remplace fr(i,1) par UCASE(fr(i,1))
Pounet95


"Ptck" a écrit dans le message de groupe de
discussion :
Bonsoir j'ai ce bout de code
je compare 2 tableaux mais dans l'un je peux avoir les infos en
minuscule pour les clées
comment mettre toutes les clés du premier tableau an majuscule
merci pour votre aide
ptck

Set dico = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(fr)

If dico.Exists(fr(i, 1)) Then MsgBox " l'article " & fr(i, 1) & "
est en double dans l'onglet <" & f1.Name & ">" & " ligne => " & i + 1:
Exit Sub
dico.Add (fr(i, 1)), i:
Next