guy72
XLDnaute Impliqué
Bonjour,
Je n'ai plus de retour arrière.
Pouvez-vous me dire pourquoi ?
Exemple:
1) Prenez un nouveau classeur (EXCEL 2003 ou 2010).
2) Dessin --> Forme automatique --> Flèche pleine --> Flèche droite à entaille.
3) La mettre ou vous voulez, lui mettre le nom "Girouette".
4) En E5 mettre un point cardinal.
5) Copier le code suivant :
6) Si vous voulez, vous pouvez changer le texte dans E5 pour faire tourner la flèche.
7) Mettre un texte dans une autre cellule (E17), faite "Entrée"
Maintenant, pouvez-vous supprimer le texte avec l'icône retour arrière ?
Moi je ne peux pas, sauf si je supprime le code pourquoi ?
Un exemple en pièce jointe
Merci de votre aide
Cordialement
Guy
Je n'ai plus de retour arrière.
Pouvez-vous me dire pourquoi ?
Exemple:
1) Prenez un nouveau classeur (EXCEL 2003 ou 2010).
2) Dessin --> Forme automatique --> Flèche pleine --> Flèche droite à entaille.
3) La mettre ou vous voulez, lui mettre le nom "Girouette".
4) En E5 mettre un point cardinal.
5) Copier le code suivant :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
RoseWind = Array("NNE", "NE", "ENE", "E", "ESE", "SE", "SSE", "S", "SSO", "SO", "OSO", "O", "ONO", "NO", "NNO", "N")
ActiveSheet.Shapes("Girouette").Rotation = 270 + 22.5 * WorksheetFunction.Match(Range("E5").Value, RoseWind, 0)
End Sub
7) Mettre un texte dans une autre cellule (E17), faite "Entrée"
Maintenant, pouvez-vous supprimer le texte avec l'icône retour arrière ?
Moi je ne peux pas, sauf si je supprime le code pourquoi ?
Un exemple en pièce jointe
Merci de votre aide
Cordialement
Guy