Débutant en VBA ! Need help !!

Fermé

Julien - 31 oct. 2010 à 21:49
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 - 1 nov. 2010 à 22:23

Bonjour,

Je découvre les macros dans excel mac et j'ai un petit problème, non résolu pour le moment.

J'ai dans mon document deux flèches qui me permettent d'incrémenter et de décrémenter la valeur d'une cellule. Je voudrais que la valeur de cette cellule soit comprise entre 1 et 12. Sur PC, j'aurais utilisé le format de contrôle pour indiquer une valeur min et max pour la cellule mais je ne trouve pas ça sur mac ! Quelqu'un aurait-il une astuce pour que j'intègre tout ça dans ma fonction VBA ?

Merci d'avance !

Ju

A voir également:

Débutant en VBA ! Need help !!
Logiciel de programmation pour débutant - Guide
Need for speed network - Télécharger - Jeux vidéo
Télécharger need for speed pc gratuit complet - Télécharger - Jeux vidéo
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA

5 réponses

Réponse 1 / 5

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
1 nov. 2010 à 00:39

Bonjour,
Quel version ton "Excel Mac" ?
A+

Réponse 2 / 5

Julien
1 nov. 2010 à 00:44

C'est la dernière version d'Excel. Je l'ai prise justement pour avoir le VBA ! Donc c'est Office 2011. Je veux juste savoir quel code utiliser pour que la valeur d'une cellule soit comprise entre 1 et 12 et qu'un message ("MsgBox") d'erreur apparaisse quand je suis en dehors de ces valeurs.

Réponse 3 / 5

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
1 nov. 2010 à 02:03

Tu doit tester la cellule dans l'événement..

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Et bonsoir, pour aujourd'hui c'est.. dodo
A+

Julien
1 nov. 2010 à 02:09

Merci pour le coup de pouce ! je vais tenter ça ! A cette heure-ci, je ne pige pas tout aux arguments de la fonction, mais je trouverai !

Réponse 4 / 5

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
1 nov. 2010 à 13:57

Re,

Private Sub Worksheet_Change(ByVal Target As Range)
'supposons le test de la cellule C5
    If Target.Address = "$C$5" Then
        If Target > 12 Or Target < 1 Then
            MsgBox "Valeur non valide"
        End If
    End If
End Sub

A+

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 261
Modifié par eriiic le 1/11/2010 à 22:24

Bonsoir,

Sinon si tu utilises le contrôle 'Toupie' sur clic-droit 'propriétés', tu en as 3 qui t'interessent :
- min
- max
- linkedCell

C'est l'équivalent du contrôle 'Compteur', 'format de contrôle...' onglet contrôle (apparement celui que tu connaissais sur PC).

eric

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Méthode find dans VBA - Recherche de données sous Excel

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll

Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

ouverture d'un fichier excel à partir d'un code VBA

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

appliquer une pause dans une macro vba excel

Bonjour,

Je cherche comment faire stopper de quelques secondes le déroulement de ma macro en vba excel et ceci de maniere invisible pour l'utilisateur.
Si quelqu'un à un bout de code ça serait sympa !!!

je suis en vba excel 2007

merci

Configuration: Windows XP / Internet Explorer 7.0