Explications Procédure ?

wilfried_42

XLDnaute Barbatruc

• 23 Mars 2008

• #2

Re : Explications Procédure ?

bonjour

Il y a quelques traductions qui demande des precisions, mais elle ne sont pas fausse (du moins totalement)

Tu bloques sur l'instruction CASE, c'est une instruction de type conditionnelle : IF THEN ELSE

Exemple simple : une variable entiere peut prendre x valeurs, mais seules les valeur de 1 à 5 te sont utiles

au lieu de faire :

Code:

If a = 1 then 
 ........
 ........
end if
If a = 2 then 
 ........
 ........
end if
If a = 3 then 
 ........
 ........
end if
If a = 4 then 
 ........
 ........
end if
If a = 5 then 
 ........
 ........
end if
if I<1 or i>5 then msgbox "Erreur"

tu fais :

Code:

select case a
      case 1
            ..........
            ..........
      case 2
            ..........
            ..........
      case 3
            ..........
            ..........
      case 4
            ..........
            ..........
      case 5
            ..........
            ..........
      case else
            msgbox "Erreur"
end select

ca donne la meme chose, mais c'est plus clair, plus propre et plus facile à lire, de plus si tu ajoutes un critere, c'est plus simple d'ajouter case 6 par exemple

en esperant avoir ete clair (à mon tour)

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 23 Mars 2008

• #3

Re : Explications Procédure ?

Bonjour,

pour compléter tes commentaires:

For Each Ch In Charts 'Pour chaque feuille dans la collection feuille graphique
If Ch.Name = Sheets(i).Name Then Cible = True 'Cible = vraie si le nom du graphique = nom de la feuille

L'instruction "Case" permet d'exécuter différentes actions en
fonction du résultat renvoyé par la variable ???

Cliquez pour agrandir...

Oui, c'est ça.
Si tu veux en savoir plus sur une fonction, propriété etc ... clique dessus puis ouvre l'aide en appuyant sur F1.

Edit: collision, salut Wilfried

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 23 Mars 2008

• #4

Re : Explications Procédure ?

re:, salut skoobi


Un oubli : Vbcrlf : selon les programmeurs, tu trouveras aussi Chr(10), cela definit une retour à la ligne

Le message à la fin, contient autant de lignes qu'il y as de feuilles

 

Vote positif 0 Vote négatif

atlonia

XLDnaute Occasionnel

• 23 Mars 2008

• #5

Re : Explications Procédure ?

Bonjour Wilfried 42 et Skoobi,

Merci pour votre aide si précieuse,

Je comprenais en gros ce que faisait chaque ligne, mais n'étais pas capable de l'expliquer clairement.

C'est beaucoup plus clair maintenant!

Skoobi, Je connais effectivement la touche "F1", mais je l'avais complètement zappé. Merci de me la rappeler

Wilfried, quand tu parle de "Vbcrlf", tu fait référence à la ligne: typeFeuilles = typeFeuilles & vbLf, n'est-ce pas ?

 

Vote positif 0 Vote négatif

atlonia

XLDnaute Occasionnel

• 23 Mars 2008

• #6

Re : Explications Procédure ?

J'essaie d'en lire un autre,

mais je bute sur les nombres inscrits dans la boucle:

Sub lettresnumeroColonne()
Dim boucle As Integer, valeur As Integer, Z As Integer
boucle = activeCell.Column
If boucle <= 26 Then
msgbox Chr(Boucle + 64)
Else
Valeur = application.rounddown(Boucle / 26, 0)
If Valeur = Boucle / 26 Then Valeur = Valeur - 1
Z = (Boucle - (26 * Valeur)) + 64
msgbox Chr(Valeur + 64) & Chr(Z)
End If
End Sub

Je ne comprend pas à quoi ils se référent; 26, 64?

Merci

 

Dernière édition: 23 Mars 2008

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 23 Mars 2008

• #7

Re : Explications Procédure ?

Bonsoir,

26 correspond à la lettre Z, ça je pense que tu l'avais deviné.
Pourquoi "boucle + 64"? car cela correspond à la lettre Z dans le jeu de caractère ASCII -> Chr(90)

 

Vote positif 0 Vote négatif