Erreur variable requise vba
Résolu
niny@
Messages postés
107
Date d'inscription
Statut
Membre
Dernière intervention
-
niny@ Messages postés 107 Date d'inscription Statut Membre Dernière intervention -
niny@ Messages postés 107 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Erreur variable requise vba
- Incompatibilité de type vba ✓ - Forum Programmation
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- Action requise sur le compte - Forum Téléphones & tablettes Android
- Erreur 0x80070643 - Accueil - Windows
- Erreur t32 ✓ - Forum Livebox
5 réponses
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
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
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)
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)
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
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
si j'ai bien compris donc pour moi :
ma chaine dans mon tableau est : opt__|inst?|cal!|id~|
il faut que je mette la valeur de mon label caché aprés le ~
valeur= cells(lig,col).value
pos = instr(1,valeur,"~")
vartexte = mid(valeur,1,pos +1) & label_cache
mais je vois pas trop où je récupère la chaine dans mon tableau, la chaine complétée ?
dsl mais j'ai vraiment du mal sur ce point :-(
ma chaine dans mon tableau est : opt__|inst?|cal!|id~|
il faut que je mette la valeur de mon label caché aprés le ~
valeur= cells(lig,col).value
pos = instr(1,valeur,"~")
vartexte = mid(valeur,1,pos +1) & label_cache
mais je vois pas trop où je récupère la chaine dans mon tableau, la chaine complétée ?
dsl mais j'ai vraiment du mal sur ce point :-(
re :
Lupin
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
j'ai encore une petite question :
an faisant ce type d'insertion, quand je rajoute un élèment dans la chaine je n'ai plus la suite de celle ci.
j'ai essayé de changer l'ordre de traitement de ma chaine c'est à dire : l'insertion du nom de l'install apres ?, puis cal aprés ! et id apres le ~ , résulat ca fait n'importe quoi.
si je fais élèment aprés élements ca m'efface ce qui suit mon insertion. ceci vient de mon affectation au niveau de la cellule non ?
encore merci, aprés je t'embete plus sur ca lol
an faisant ce type d'insertion, quand je rajoute un élèment dans la chaine je n'ai plus la suite de celle ci.
j'ai essayé de changer l'ordre de traitement de ma chaine c'est à dire : l'insertion du nom de l'install apres ?, puis cal aprés ! et id apres le ~ , résulat ca fait n'importe quoi.
si je fais élèment aprés élements ca m'efface ce qui suit mon insertion. ceci vient de mon affectation au niveau de la cellule non ?
encore merci, aprés je t'embete plus sur ca lol
par contre je ne comprend pas trop pourquoi cette syntaxe pour la varTexte, que signifie t'elle ?