Lire une cellule avec plusieurs valeurs séparées par ";" Résolu

Question

Bonjour à tous,

Je suis en train de créer un formulaire sur Excel et pour des raisons pratiques, j'enregistre plusieurs valeurs de CheckBox dans une seule cellule.

Ex. simplifié :
Range("A1") = CheckBox1.Value & ";" & CheckBox2.Value

Mais je ne sais pas comment réattribuer ces valeurs enregistrées à chaque CheckBox quand je veux consulter mon formulaire avec mes données enregistrées.

J'espère que je suis assez clair 

Auriez vous une idée de la manière de lire la cellule ?

cs_Orohena · Accepted Answer

Bonjour Vampirelo

Option Base 0
...
Dim cellules() as String
cellules = Split(Range("A1").Value, ";")
CheckBox1.Value = cellules(0)
CheckBox2.Value = cellules(1)

Amicalement

Vampirelo · Answer

Ca marche impécable !
Merci beaucoup :)

piloulac · Answer

Super cette fonction de Orohena


Pour récupérer plusieurs valeurs, séparés par un ";" :



''D'abord, une petite fonction(NbSousChaine) très commode permettant de compter des occurences de caractères dans une chaîne.



Function NbSousChaine(Chaine As String, Ch As String, Optional RC As Integer = 1) As Long
  NbSousChaine= (Len(Chaine) - Len(Replace(Chaine, Ch, "", , , RC))) / Len(Ch)
End Function

''Ensuite une adaptation du code de Orohena :

Sub lireplusieursdatas()
Dim cellules() As String
Dim Sous_Chaine, nb, i
nb = NbSousChaine(Range("A1").Text, ";")
cellules = Split(Range("A1").Value, Chr(59))
For i = 0 To nb
Sous_Chaine = cellules(i)
Next
End Sub

Lire une cellule avec plusieurs valeurs séparées par ";"

3 réponses

Votre réponse

Discussions similaires