erreur variable requise vba Résolu/Fermé

Question

Bonjour,

dans mon pgr j'ai un problème d'erreur de "variable requise.impossible de l'affecter à cette expression".
cette erreur est indiquée au niveau de la ligne :

Mid(Cells(lig, col).Value, pos, 1) = label_cache

à l'execution, "Value"est surligné, il n'aime pas ca. 
comment puis je indiquer que la variable labelcache aille bien dans la cellule ligne, colonne

d'où peut venir cette erreur,

merci

Utilisateur anonyme · Answer

Bonjour,

Vous tenté ici de faire une substitution et non une affectation.

Décomposé le problème pas à pas :

Option Explicit

Sub Insertion()

    Dim Valeur As String, varTexte As String
    
    ' Mid(Cells(lig, col).Value, pos, 1) = label_cache

    Valeur = Cells(lig, col).Value
    varTexte = Mid(Valeur, 1, pos(-1)) & label_cache & Mid(Valeur, (pos + 1))
    Cells(lig, col).Value = varTexte

End Sub

freto · Answer

en fait varTexte = Mid(Valeur, 1, pos(-1)) & label_cache & Mid(Valeur, (pos + 1)) va récupérer le résultat de 
Mid(Valeur, 1, pos(-1)) et le concaténer avec label_cache et concaténer le tout avec Mid(Valeur, (pos + 1)) 
enfin Cells(lig, col).Value = varTexte va affecter la valeur de varTexte à la cellule (lig,col)

Utilisateur anonyme · Answer

re :

Mid(Cells(lig, col).Value, pos, 1) = label_cache 


L'instruction Mid sous entend que vous tenter d'insérer un texte dans
une chaine [ Cells(lig, col).Value ] à la position [ pos ] pour 1 caractère.

suposons que la valeur de la cellule est : [ abc0xyx ] et que label_cache = 5

et que tentiez d'insérer une valeur à la 4ième position
si pos = 4

Ici varTexte recupère les trois premiers caratères de la chaine
varTexte = Mid(Valeur, 1, pos(-1))
[varTexte = "abc" ]
Ici varTexte recupère les trois premiers caratères de la chaine et concatène la valeur dans label_cache
varTexte = Mid(Valeur, 1, pos(-1)) & label_cache
[varTexte = "abc5" ]
Ici varTexte recupère les trois premiers caratères de la chaine et concatène la valeur dans label_cache
et concatnène le reste de la chaine
varTexte = Mid(Valeur, 1, pos(-1)) & label_cache & Mid(Valeur, (pos + 1)) 
[varTexte = "abc50xyz" ]

Lupin

Utilisateur anonyme · Answer

re :


Sub Traitement()

    Dim Lig As Long, Col As Long, Pos1 As Long
    Dim Valeur2 As Variant, label_cache As Long
    Dim varTexte As String
    
    Lig = 5: Col = 5: label_cache = 5
    Pos1 = InStr(1, Cells(Lig, Col).Value, "~")

    Valeur2 = Cells(Lig, Col).Value
    ' Découpé en exécution pas à pas avec un espion sur varTexte
    varTexte = Mid(Valeur2, 1, Pos1)
    varTexte = varTexte & Trim(label_cache)
    varTexte = varTexte & Mid(Valeur2, (Pos1 + 1))

    ' Sur une seule ligne, ça donne
    varTexte = Mid(Valeur2, 1, Pos1) & Trim(label_cache) & Mid(Valeur2, (Pos1 + 1))

    Cells(Lig, Col).Value = varTexte
    

End Sub
'


Lupin

Utilisateur anonyme · Answer

re :

Ce fut un plaisirs :-)

Bonne continuité.

Michel ( alias Lupin )

Erreur variable requise vba

5 réponses

Discussions similaires