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 recherche (code) [XL-2013]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Divers
    Inscrit en
    Février 2017
    Messages
    295
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Divers

    Informations forums :
    Inscription : Février 2017
    Messages : 295
    Par défaut problème de recherche (code)
    Bonjour à tous,

    je suis débutant en VBA et je cherche à faire une recherche et mettre le résultat dans un commentaire

    mon problème c'est qu'à la ligne 17 j'ai une erreur 2042.
    Pourquoi?

    merci pour votre aide.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    Sub ajouterCommentaire() 'si il y a pas de commentaire, on en ajoute un
     
    Dim wsAbs As Range
    Dim ws As Worksheet
    Dim Celcom As Variant
    Dim i As Integer
    Dim valrech As String
     
     
    Set wsAbs = ThisWorkbook.Worksheets("Divers").Range("congés")
    Set ws = ThisWorkbook.ActiveSheet
     
     
    For i = 15 To 36
        If ws.Range("f" & i) <> "" Then
            valrech = ws.Range("f" & i).Value
            Celcom = Application.VLookup(valrech, wsAbs, 2, 0)
            If ws.Range("f" & i).Comment Is Nothing Then ws.Range("f" & i).AddComment
                With ws.Range("F" & i)
                    .Comment.Visible = False
                    .Comment.Text Text:="Celcom"
                End With
            End If
     
    Next i
     
    End Sub

  2. #2
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 974
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 974
    Par défaut
    bonjour
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    .Comment.Text Text:="Celcom"
    mettre Celcom entre guillemet équivalent à mettre ce texte comme commentaire
    le reste fonctionne chez moi :
    vérifier si vous avez bien définie la zone de la recherche qui se trouve dans l'onglet "Divers" et la nommer "congés"

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    Sub ajouterCommentaire() 'si il y a pas de commentaire, on en ajoute un
     
    Dim wsAbs As Range
    Dim ws As Worksheet
    Dim Celcom As Variant
    Dim i As Integer
    Dim valrech As String
     
     
    Set wsAbs = ThisWorkbook.Worksheets("Divers").Range("congés")
    Set ws = ThisWorkbook.ActiveSheet
     
    For i = 15 To 36
        If ws.Range("f" & i) <> "" Then
            valrech = ws.Range("f" & i).Value
            Celcom = Application.VLookup(valrech, wsAbs, 2, 0)
            MsgBox Celcom
            If ws.Range("f" & i).Comment Is Nothing Then ws.Range("f" & i).AddComment
                With ws.Range("F" & i)
                    .Comment.Visible = False
                    .Comment.Text Text:=Celcom
                End With
            End If
    Next i
    End Sub

  3. #3
    Membre éclairé
    Homme Profil pro
    Divers
    Inscrit en
    Février 2017
    Messages
    295
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Divers

    Informations forums :
    Inscription : Février 2017
    Messages : 295
    Par défaut
    Merci pour votre aide.
    J'ai remarqué après fait ma demande sur le forum, mon erreur de "".

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

Discussions similaires

  1. [MySQL] Problème dans mon code entre une recherche mysql et en php
    Par pasbonte dans le forum PHP & Base de données
    Réponses: 4
    Dernier message: 27/12/2008, 14h04
  2. Recherche code source Photosticher
    Par mathieu_t dans le forum OpenGL
    Réponses: 2
    Dernier message: 02/07/2004, 08h18
  3. Problème de recherche dans une BD
    Par ledevelopeur dans le forum Bases de données
    Réponses: 5
    Dernier message: 28/04/2004, 09h49
  4. Quel est le problème dans ce code ?
    Par Luther13 dans le forum C
    Réponses: 12
    Dernier message: 26/08/2003, 16h09
  5. Recherche code d'un fifo,ou explication
    Par don-diego dans le forum C
    Réponses: 8
    Dernier message: 25/07/2002, 10h26

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