Lire une cellule excel avec virtual basic
thierry78
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
Bonjour,
J’ai une macro qui à besoin de lire une cellule pour s'exécuter, mais j'aimerais protéger cette cellule avec la protection de feuille Excel qui empêche du coup l'exécution de la macro.
Est ce qu'il y a un autre moyen que la fonction "range" qui permettrai de lire a cellule avec la protection.
merci d'avance
thierry
J’ai une macro qui à besoin de lire une cellule pour s'exécuter, mais j'aimerais protéger cette cellule avec la protection de feuille Excel qui empêche du coup l'exécution de la macro.
Est ce qu'il y a un autre moyen que la fonction "range" qui permettrai de lire a cellule avec la protection.
merci d'avance
thierry
A voir également:
- Lire une cellule excel avec virtual basic
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Lire epub - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Déplacer une colonne excel - Guide
5 réponses
Bonjour,
en introduisant une variable :
sub lirecellule
dim valeurcellule as string
valeurcellule = range("A1")
range("C2") = valeur cellule
end sub
dans le code que j'ai mis ma variable valeur cellule est égale à la valeur qui est dans A1 et je mets cette valeur dans C2
en introduisant une variable :
sub lirecellule
dim valeurcellule as string
valeurcellule = range("A1")
range("C2") = valeur cellule
end sub
dans le code que j'ai mis ma variable valeur cellule est égale à la valeur qui est dans A1 et je mets cette valeur dans C2
Bonjour,
Voilà un exemple pour écrire dans une cellule d'une feuille protégée.
A toi de voir si ça te convient et à l'adapter.
;o)
Voilà un exemple pour écrire dans une cellule d'une feuille protégée.
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)
ws.Unprotect ("monPassword")
ws.Range("B3").Value = "coucou"
ws.Protect ("monPassword")
A toi de voir si ça te convient et à l'adapter.
;o)
re bonjours,
désolé
je me suis fait feinté...
j'ai esseillé de faire comme tu m'a dit polux mais quesque j'ai mal fait?
Dim compteur As Worksheet
Set compteur = ThisWorkbook.Worksheets(1)
compteur.Unprotect ("etn")
compteur = Sheets("planning ETN utilités").ActiveSheet.Range("D2").Value
compteur.Protect ("etn")
désolé
je me suis fait feinté...
j'ai esseillé de faire comme tu m'a dit polux mais quesque j'ai mal fait?
Dim compteur As Worksheet
Set compteur = ThisWorkbook.Worksheets(1)
compteur.Unprotect ("etn")
compteur = Sheets("planning ETN utilités").ActiveSheet.Range("D2").Value
compteur.Protect ("etn")
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
re,
cette ligne ne va pas :
compteur = Sheets("planning ETN utilités").ActiveSheet.Range("D2").Value
compteur est un objet Worksheet. Une cellule est un objet Range.
Dans ton cas ça doit faire quelque chose comme ça:
compteur.Range("D2") = Sheets("planning ETN utilités").Range("D2").Value
La cellule D2 du premier onglet prend la valeur de la cellule D2 de l'onglet "planning ETN utilités".
;o)
cette ligne ne va pas :
compteur = Sheets("planning ETN utilités").ActiveSheet.Range("D2").Value
compteur est un objet Worksheet. Une cellule est un objet Range.
Dans ton cas ça doit faire quelque chose comme ça:
compteur.Range("D2") = Sheets("planning ETN utilités").Range("D2").Value
La cellule D2 du premier onglet prend la valeur de la cellule D2 de l'onglet "planning ETN utilités".
;o)
