Macro Inconnue

[lanaine]

Bonjour,

Je travaille sur une macro déjà existante.
Ce bout de code, ci dessous, d'après le commentaire, limite une chaine de caractère à 20 caractères.
J'aimerai bien limiter ce nombre à 30 maintenant.
Est ce que vous pouvez m'aider ?
Dites moi si il faut un autre bout de code.

Merci.

'Adaptation du libellé à 20 Caractères


Range("B" & i).Select
            ActiveCell.FormulaR1C1 = "=IF(ISNA(VLOOKUP(RC[-1],'" + sFileName + "'!C2:C6,2,FALSE)),"" "",(VLOOKUP(RC[-1],'" + sFileName + "'!C2:C6,2,FALSE)))"
    Range("F" & i).Select
            ActiveCell.FormulaR1C1 = "=UPPER(RC[-4])"
            Selection.Copy
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

 

[pierrejean]

Re : Macro Inconnue

Bonjour lanaine

D'apres le commentaire !!!
Je crains que la réalité sois differente
Peux-tu poster un fichier exemple de ce qui existe et de ce que tu souhaites (sans données confidentielles et reduit au necessaire pour comprendre le problème)

 

[Minick]

Re : Macro Inconnue

Salut,

Ce bout de code ne sert pas a limiter une chaine a 20 caracteres mais a
verifier si la reference de la colonne precedente (Ai) existe dans le fichier sFileName dans la plage C2:C6 et
retourne la valeur de la 2eme colonne (ici colonne 3 dans sFileName)
Et met le resultat en majuscule en Fi

 

[lanaine]

Re : Macro Inconnue

Merci. j'ai compri à quoi servait ce bout de code.

j'ai trouvé ou se trouvait ce que je cherchais : mes 30 caractères.

'Supprime Lot ,Bte ou Set
        Lot = Left(Range("F" & i).Value, 3)
        Pack = Left(Range("F" & i).Value, 4)
        
        If (Lot = "lot" Or Lot = "set" Or Lot = "bte") Then
            Lot = Mid(Range("F" & i), 5, Len(Range("F" & i)))
            Lotde = Left(Lot, 3)
            
            
'Supprime "de " Qui aurait été omis ...
            If (Lotde = "de ") Then
                Lot = Mid(Lot, 4, Len(Range("F" & i)))
            End If
            Lot = Left(Lot, 20)
            Range("B" & i).Select
                ActiveCell.FormulaR1C1 = Lot
        ElseIf (Pack = "pack") Then
            Pack = Mid(Range("F" & i), 6, Len(Range("F" & i)))
            Packde = Left(Pack, 3)
            
            
'Supprime "de " Qui aurait été omis ...
            If (Packde = "de ") Then
                Pack = Mid(Pack, 5, Len(Range("F" & i)))
            End If
            Pack = Left(Pack, 20)
            Range("B" & i).Select
                ActiveCell.FormulaR1C1 = Pack
        Else
            Range("B" & i).Select
                ActiveCell.FormulaR1C1 = Left(Range("F" & i), 20)
        End If
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

Quand je remplace mon 20 en 30 cela augmente bien ma chaine de caractère mais cela ne supprime plus les lots de...etc les mots qui doivent être enlevés.