probleme avec les erreurs

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion nsqualli
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

nsqualli

Guest
bonjour,

j'ai la tache d'automatiser des procedures avec des macro excel, et je n'y ai jamais touché avant 🙂 alors SVP aidez moi:

bon sur cette macro, je dois faire un teste sur deux cellules de la meme ligne, et si le teste est vrai je dois passer a un autre teste , le probleme c'est que le teste se fait sur la premiere cellule mais pas la deuxieme, et j'ai l'erreur d'execution '91': variable objet ou variable de bloc with non definie.

voila le code:

Code: 
Option Explicit
Option Compare Text
 
Sub renseigner2()
    Dim Cel As Range
    Dim var As Range
    Const DistF2T As Long = 14      'nombre de décalages pour passer de F à T
    Const DistF2AG As Long = 27       'nombre de décalages pour passer de F à AG
    Const DistF2B As Long = -4      'nombre de décalages pour passer de F à B
    
              '---------------boucle pour tester si devis de développement doit etre renseigner ou non-----------------
   
    For Each Cel In Range("F1").EntireColumn.Cells
        'Si la valeur de la Cel est EVO
        var = Range("AG1").EntireColumn.Cells.Value
        If Cel.Value = "Evo" And var = "" Then
            'Alors, selon le cas de la valeur de la cel de la même ligne, colonne T
            'Select Case Cel.Offset(0, DistF2T).Value
                'si l'on a l'une des valeurs suivantes : "CHK", "CHK-OK", "ANA", "ANU", "ATT"
                'Case "CHK", "CHK-OK", "ANA", "ANU", "ATT"
                    'il n'y a rien à faire
                'sinon
                'Case Else
                    'colorer la Cel correspondante dans la colonne B
                    Cel.Offset(0, DistF2B).Font.Color = vbRed
            'End Select
        'si la Cel de la colonne F n'équivaut pas EVO
        Else
            'il n'y a rien à faire non plus
        End If
    Next
End Sub
 
Trier par date Trier par votes
Re : probleme avec les erreurs

Bonjour,
nsqualli à dit:
Code: 
        var = Range("AG1").[COLOR="Red"]EntireColumn.Cells.[/COLOR]Value
        If Cel.Value = "Evo" And [COLOR="Red"]var = ""[/COLOR] Then
Cliquez pour agrandir...
😕 s'agirait-il de tester que la colonne AG est vide ?
Autant commencer par ce test et quitter la procédure si c'est le cas
Sinon, si c'est juste la cellule AG de de la ligne
Code: 
Option Explicit
Option Compare Text
 
Sub renseigner2()
    Dim Cel As Range
    Dim var As Range
    Const DistF2T As Long = 14      'nombre de décalages pour passer de F à T
    Const DistF2AG As Long = 27       'nombre de décalages pour passer de F à AG
    Const DistF2B As Long = -4      'nombre de décalages pour passer de F à B
    
              '---------------boucle pour tester si devis de développement doit etre renseigner ou non-----------------
   
    For Each Cel In Range("F1:F" & Range("F65000").End(xlUp).Row)
        'Si la valeur de la Cel est EVO
        'var = Range("AG1").EntireColumn.Cells.Value
        If Cel.Value = "Evo" And Cel.Offset(0, DistF2AG) = "" Then
        
            'Alors, selon le cas de la valeur de la cel de la même ligne, colonne T
            Select Case Cel.Offset(0, DistF2T).Value
                'si l'on a l'une des valeurs suivantes : "CHK", "CHK-OK", "ANA", "ANU", "ATT"
                Case "CHK", "CHK-OK", "ANA", "ANU", "ATT"
                    'il n'y a rien à faire
                'sinon
                'Case Else
                    'colorer la Cel correspondante dans la colonne B
                    Cel.Offset(0, DistF2B).Font.Color = vbRed
            'End Select
        'si la Cel de la colonne F n'équivaut pas EVO
        End Select
            'il n'y a rien à faire non plus
        End If
    Next
End Sub
A+
kjin
 
Vote positif 0 Vote négatif
Re : probleme avec les erreurs

Bonjour nsqualli, kjin

"var" étant une variable de type range (Dim var As Range), lorsque tu l'initialise il y a lieu de faire précéder l'instruction par le mot "Set" :

Code: 
Set var = Range("AG1")

par contre si tu veux stocker la valeur de la cellule, il faut déclarer ta variable en "string" pour stocker du texte (A noter, tu peux également utiliser des types de données stockant des nombres "long", "integer" etc...) " :

Code: 
Dim var As String
var = Range("AG1").Value

F1 sur le mot "Dim" te renverra dans l'aide pour plus d'info. Tu pourras également aller consulter dans l'aide le "Résumé des types de données"...

bonne journée
@+

Edition : bonjour Gael, t'avais pas vu...
 
Vote positif 0 Vote négatif
Re : probleme avec les erreurs

kjin à dit:
Bonjour,

😕 s'agirait-il de tester que la colonne AG est vide ?
Autant commencer par ce test et quitter la procédure si c'est le cas
Sinon, si c'est juste la cellule AG de de la ligne
Code: 
Option Explicit
Option Compare Text
 
Sub renseigner2()
    Dim Cel As Range
    Dim var As Range
    Const DistF2T As Long = 14      'nombre de décalages pour passer de F à T
    Const DistF2AG As Long = 27       'nombre de décalages pour passer de F à AG
    Const DistF2B As Long = -4      'nombre de décalages pour passer de F à B
    
              '---------------boucle pour tester si devis de développement doit etre renseigner ou non-----------------
   
    For Each Cel In Range("F1:F" & Range("F65000").End(xlUp).Row)
        'Si la valeur de la Cel est EVO
        'var = Range("AG1").EntireColumn.Cells.Value
        If Cel.Value = "Evo" And Cel.Offset(0, DistF2AG) = "" Then
        
            'Alors, selon le cas de la valeur de la cel de la même ligne, colonne T
            Select Case Cel.Offset(0, DistF2T).Value
                'si l'on a l'une des valeurs suivantes : "CHK", "CHK-OK", "ANA", "ANU", "ATT"
                Case "CHK", "CHK-OK", "ANA", "ANU", "ATT"
                    'il n'y a rien à faire
                'sinon
                'Case Else
                    'colorer la Cel correspondante dans la colonne B
                    Cel.Offset(0, DistF2B).Font.Color = vbRed
            'End Select
        'si la Cel de la colonne F n'équivaut pas EVO
        End Select
            'il n'y a rien à faire non plus
        End If
    Next
End Sub
A+
kjin
Cliquez pour agrandir...

Merci beaucoup Kjin, ça marche tres bien et c'est vraiment ce que je voulais, bon je vais laisser le code final, si quelqu'un veut s'en servir:

Code: 
Option Explicit
Option Compare Text
 
Sub renseigner2()
    Dim Cel As Range
    Dim var As Range
    Const DistF2T As Long = 14      'nombre de décalages pour passer de F à T
    Const DistF2AG As Long = 27       'nombre de décalages pour passer de F à AG
    Const DistF2B As Long = -4      'nombre de décalages pour passer de F à B
    
              '---------------boucle pour tester si devis de développement doit etre renseigner ou non-----------------
   
    For Each Cel In Range("F1:F" & Range("F65000").End(xlUp).Row)

        'Si la valeur de la Cel est EVO la cellule du devis est vide
        If Cel.Value = "Evo" And Cel.Offset(0, DistF2AG) = "" Then
            'Alors, selon le cas de la valeur de la cel de la même ligne, colonne T
            Select Case Cel.Offset(0, DistF2T).Value
                'si l'on a l'une des valeurs suivantes : "CHK", "CHK-OK", "ANA", "ANU", "ATT"
                Case "CHK", "CHK-OK", "ANA", "ANU", "ATT"
                    'il n'y a rien à faire
                'sinon
                Case Else
                    'colorer la Cel correspondante dans la colonne B
                    Cel.Offset(0, DistF2B).Font.Color = vbRed
            End Select
        'si la Cel de la colonne F n'équivaut pas EVO
        Else
            'il n'y a rien à faire non plus
        End If
    Next
End Sub

est ce que tu peux juste m'expliquer ce que fait la ligne suivante :

Code: 
For Each Cel In Range("F1:F" & Range("F65000").End(xlUp).Row)

Merci une autre fois🙂
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Lu76Fer
XLSM : Copie massive de ligne de données vers la grille
Réponses
3
Affichages
764
oguruma
oguruma
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
Nicolas JACQUIN
I
  • Résolu(e)
Microsoft 365 VBA EXCEL Utilisation d'une variable avec données dans un tableau
Réponses
4
Affichages
1 K
mapomme
mapomme
PHV.FSM
  • Question Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
4 K
Nicolas JACQUIN
Nicolas JACQUIN
G
  • Question Question
XL 2016 modifier virgule en point
Réponses
1
Affichages
796
Grouchet
G
O
  • Résolu(e)
XL 2013 Rajouter une bordure noire dans un tableau par VBA
Réponses
5
Affichages
1 K
Lolote83
L
O
  • Question Question
XL 2013 Arrêter une Macro si une condition n'est pas remplie (if... then... endif...)
Réponses
2
Affichages
1 K
onyirimba
O
I
  • Question Question
Google Sheets Lenteur avec script Googlesheet ...
Réponses
0
Affichages
2 K
icekio
I
S
  • Question Question
Autres probleme avec les macro
Réponses
3
Affichages
995
herve62
herve62
D
  • Question Question
Problème VBA
Réponses
1
Affichages
991
Dureux
D
B
  • Question Question
Macro Array pour accélérer des Sous totaux d'un classeur dans une autre feuille.
2 3 4
Réponses
45
Affichages
7 K
Broch002
B
job75
  • Question Question
Comparaison des méthodes de suppression des accents
Réponses
13
Affichages
2 K
Guest
G
V
  • Question Question
Multiselect et textbox
Réponses
0
Affichages
2 K
vassili
V
A
  • Question Question
Probleme affichage bordure automatiquement + probleme zone d'impression
Réponses
3
Affichages
3 K
anna111
A
N
  • Question Question
probleme avec un bouton
Réponses
2
Affichages
830
nsqualli
N
Y
  • Question Question
Code VBA - Possibilité d'accélérer un code assez long ?
Réponses
13
Affichages
23 K
Yvouille
Y
C
  • Question Question
Comment récupérer les informations d'une cellule (son format) et les traiter
2 3
Réponses
31
Affichages
8 K
sebastien450
S
tactic6
  • Question Question
Erreur 1004 macro avec bandeau excel
Réponses
4
Affichages
3 K
tactic6
tactic6
M
[REF] Wiki 6 de MichelXld (Doublons, Tris, Filtres, Variables, Fichiers fermés, Acces
Réponses
0
Affichages
69 K
MichelXld
M
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
Retour