Problème

Question

Voil&#224; j'ai une variable nomm&#233; c$
Dans ce c$ j'ai des " ". Je veux d&#233;couper ce c$ en plusieurs string. En effet, a chaque fois que j'ai une paire de "" (mod(2)). Je veux une string. Au trement dit si j'ai 4 (") dans c$, j'aurai deux strings. J'aimerai avoir des suggestions pour r&#233;soudre c&#224;. Merci d'avance.

Nostra78 @+

NHenry · Answer

Tu as essay&#233; split ?


Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)



NH

nostra78 · Answer

Ouais mais c pas exactement ce k je veux, j'ai r&#233;ussi &#224; trouver un subterfuge.
Par contre je gal&#232;re tjs sur

1Dim Choix As Control
2For Each Choix In Divers.Controls
3If TypeName(Choix) = "Checkbox" Then


4    If Choix.Value = True Then
5           MonImpression.AddItem (Choix.Caption)
   
6    End If
7End If
8Next Choix

Ma varaible Choix ne donne pas ce kje veux. En effet m&#234;me si j'ai un Checkbox, &#224; l'ex&#233;cution pas &#224; pas je vois qu'il ne  r&#233;alise pas les instructions 4 et 5. Il remplace choix par la valeur que prend le controle et non le type.
Pkoi???

Nostra78
@+

Gobillot · Answer

If Choix.Value = 1 Then
      MonImpression.AddItem (Choix.Caption)
  End If

Daniel

valtrase · Answer

Salut,
Essayes ce bout de code
Dim c As String
c = "Element 1"" ""Element 2"
Label1.Caption = c
Dim Myarray() As String
Myarray() = Split(Label1.Caption, """ """)
Label2.Caption = Trim(Myarray(0))
Label3.Caption = Trim(Myarray(1))
je pense que c'est ce que tu cherche !!!! c'est un exemple pour toi c'est l lignes
Dim Myarray() As String
Myarray() = Split(Label1.Caption, """ """)
qui t'interesse

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Re,
Si tu es Sous VBA ne cherches pas &#231;a bug avec l'instruction TypeName
Faut contourner le prob.
Moi je teste les 3 premi&#232;res lettres de mon control mes TextBox se nomment toujours 
txtMonControl mes Check c'est chkMonControle ect .....

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

nostra78 · Answer

Pour 
1Dim Choix As Control
2For Each Choix In Divers.Controls
3If TypeName(Choix) = "Checkbox" Then
4    If Choix.Value = True Then
5           MonImpression.AddItem (Choix.Caption)
   
6    End If
7End If
8Next Choix
J'ai tjs le pb m&#234;me si je mets 1, je travail sur vba.
Pourtant quand je mets un espion m&#234;me si TypeName(Choix)  est un Checkbox il n'effectue pas 4
Pkoi??
Ca me saoule. J'y comprends rien.
Remarque, Choix.Value = True marche sous vba.
@+

crenaud76 · Answer

As-tu fait attention &#224; la casse de ce que te renvoi TypeName( ...) ?

Christophe R

nostra78 · Answer

Ouais TypeName(Choix) = "Checkbox"
ou "Frame"
Ca marche normal.
Mais com dit valtrase, je pense que TypeName bad sous vba.

valtrase · Answer

Re,
Normalement la syntaxe de type name est:
3If TypeName(Choix) =  Checkbox  Then 
donc vire les "
Si &#231;a bug toujours fait comme je te dis

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_CanisLupus · Answer

On doit respecter la casse comme a dit Christophe et dans ce cas c'est :

3If TypeName(Choix) =  "CheckBox"  Then 

et, si tu n'est pas s&#251;r, :

If LCase(TypeName(Choix)) = "checkbox" Then 

Loup Gris