IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Problème de selection de cellule avec offset et for each. Ne fonctionne pas (aucun message d'erreur) [XL-2013]


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Homme Profil pro
    Opérateur Militaire
    Inscrit en
    Juillet 2014
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Opérateur Militaire

    Informations forums :
    Inscription : Juillet 2014
    Messages : 3
    Points : 3
    Points
    3
    Par défaut Problème de selection de cellule avec offset et for each. Ne fonctionne pas (aucun message d'erreur)
    J'en profite pour garde le même poste pour économiser de la place j'ai un autre problème et celui ci n'est pas du à une erreur de syntaxe
    En fait sur cette image
    Nom : Capture1.PNG
Affichages : 684
Taille : 7,6 Ko
    J'ai réussi à sélectionner le mois avec ca:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    Dim cell
    'z12 c'est le moi de janvier sur la première cellule"
    For Each cell In Range("Z12:OA12") 
    If cell.Value = moidebutbox.Value Then
    cell.Select
    ActiveCell.Offset(0, -2).Select
    End If
    Next
    Mais maintenant j'essaye de sélectionner le jour à l'aide d'une autre combo box dans le même formulaire mais j'ai l'impression que la recherche ne s'effectue pas et qu'il reste bloqué sur le 1
    (j'arrive pour tant avec offset à sélectionner les autre jour en range (pour tester si le problème venait de l'offset)) voici mon code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
    Dim moi1
    For Each moi1 In Range("Z12:OA12")
    If moi1.Value = moidebutbox.Value Then
    moi1.Select
    End If
    Next
    ActiveCell.Offset(2, 0).Select
    ' jai également essayé avec Range(ActiveCell.offset(0,0), ActiveCell.Offset(0, 30))
    For Each moi1 In Range(ActiveCell, ActiveCell.Offset(0, 31))
    If moi1.Value = jourdebutbox.Value Then
    moi1.Select
    End If
    Next
    Et là ça reste bloqué sur le premier jour et je n'arrive pas à comprendre pourquoi T_T

    HELPPP merci d'avance
    Images attachées Images attachées  

  2. #2
    Expert confirmé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2013
    Messages
    3 617
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Alimentation

    Informations forums :
    Inscription : Mai 2013
    Messages : 3 617
    Points : 5 912
    Points
    5 912
    Par défaut
    Est-ce écrit oa12 ou 0a12
    N'est-ce pas un zéro plutôt qu'un o ?
    MPi²

  3. #3
    Candidat au Club
    Homme Profil pro
    Opérateur Militaire
    Inscrit en
    Juillet 2014
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Opérateur Militaire

    Informations forums :
    Inscription : Juillet 2014
    Messages : 3
    Points : 3
    Points
    3
    Par défaut
    Mon dieu j'ai pas le fichier sous les yeux la... oh le con j'ai pas fait attention merci d'avoir relever ce détail... plus qu'important je regarde après et je te tiens au courant: ) merci

    Je confirme c'était cette erreur !! vraiment désolé du dérangement inutile quoi que je pense que j'aurais mis du temps avant de me rendre compte de cette erreur de frappe
    Merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. UPDATE avec jointure ne fonctionne pas sans message d'erreur
    Par EnRadeSurEclipse dans le forum Requêtes
    Réponses: 4
    Dernier message: 25/01/2010, 22h22
  2. [DisplayTag] Problème de selection multiple checkbox avec spring mvc
    Par nean_j dans le forum Taglibs
    Réponses: 5
    Dernier message: 20/11/2009, 14h33
  3. Réponses: 2
    Dernier message: 07/10/2008, 14h11
  4. copier coller plage cellule avec Offset
    Par beebe dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 30/06/2008, 14h03
  5. Comment selection plusieur cellules avec Cells?
    Par darkspoilt dans le forum VBA Access
    Réponses: 1
    Dernier message: 06/07/2007, 12h56

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo