Microsoft 365 Variable non définie

Usine à gaz · 10 Novembre 2021

Bonjour à toutes et à tous,
Je vous souhaite une belle journée

Je n'arrive pas à faire fonctionner cette ch'tite boucle ... nul je suis
Et je ne comprends pas pourquoi

Je me permets de vous vous soumettre mon code (qui est dans ma feuille) :

VB:

Option Explicit
'CreateObject("wscript.shell").SendKeys "{F2}"
'CreateObject("wscript.shell").SendKeys "{ESC}"
'CreateObject("wscript.shell").SendKeys "% ~{UP 30}{LEFT 20}~"
Private Sub Worksheet_Activate()
    If Sheets("Table").Range("n4") = "ouvert" Then
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Sheets("Table").Select
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    MsgBox ("L'affectation doit être terminée" & Chr(10) & "avant tout autre action" & Chr(10) & Chr(10) & "clic sur cellule ICI" & Chr(10) & "pour affecter votre appel")
    Exit Sub
    End If
   
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    ActiveWindow.LargeScroll ToRight:=-1
    ActiveSheet.Unprotect Password:=""
    Range(Cells(1, 14), Cells(1, 1)).Select
    ActiveWindow.Zoom = True 'ActiveWindow.Zoom = 114
    [A5] = "=""Eblts     ""&""       clic = Tri"""
    ActiveWindow.DisplayHorizontalScrollBar = False
    Range([a6], Cells(Rows.Count, "a").End(xlUp)).RowHeight = 55
   
    Columns("N:N").Select
    With Selection.Font
        .Color = -16777024
        .TintAndShade = 0
    End With
   
'    For i = 6 To 10000
'        If Cells(i, 10) = "NPR" Then
'        Rows.RowHeight = 55
'        End If
'    Next i

'    For i = 6 To Range("J" & Rows.Count).End(xlUp).Row
'        If Cells(i, 10) = "NPR" Then
'        Rows.RowHeight = 0
'        End If
'    Next

    [c1].Select
    ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
     Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

et la photo du beugue :

Pourriez-vous m'aider ?

Mille remerciements,
lionel

Compte Supprimé 979 · 13 Novembre 2021

Salut Lionel,

Il suffit d'ajouter un test

VB:

For i = 6 To Range("J" & Rows.Count).End(xlUp).Row
    If Cells(i, 10) = "NPR" or Cells(i, 10) = "RdV Fait" then Rows(i).Hidden = True
Next i

A+

Efgé · 10 Novembre 2021

Bonjour

Tu utilises Option Explicit et tu ne déclare rien.
Un Dim I as Long (ou en court Dim i%) devrait résoudre le problème

cordialement

TooFatBoy · 10 Novembre 2021

Bonjour,

Si VBA te dit que la variable i est non définie, alors ne crois-tu pas qu'il serait logique que tu ajoutes tout simplement une ligne pour... la définir ???

Usine à gaz · 10 Novembre 2021

Bonjour Efgé,
Je te remercie

Usine à gaz · 10 Novembre 2021

Marcel32 à dit:
Bonjour,

Si VBA te dit que la variable i est non définie, alors ne crois-tu pas qu'il serait logique que tu ajoutes tout simplement une ligne pour... la définir ???

Bonjour Marcel,
OUI, je crooooiiiis .... lol

Jacky67 · 10 Novembre 2021

Usine à gaz à dit:

Bonjour à toutes et à tous,
Je vous souhaite une belle journée

Je n'arrive pas à faire fonctionner cette ch'tite boucle ... nul je suis
Et je ne comprends pas pourquoi

Je me permets de vous vous soumettre mon code (qui est dans ma feuille) :

VB:

Option Explicit
'CreateObject("wscript.shell").SendKeys "{F2}"
'CreateObject("wscript.shell").SendKeys "{ESC}"
'CreateObject("wscript.shell").SendKeys "% ~{UP 30}{LEFT 20}~"
Private Sub Worksheet_Activate()
    If Sheets("Table").Range("n4") = "ouvert" Then
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Sheets("Table").Select
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    MsgBox ("L'affectation doit être terminée" & Chr(10) & "avant tout autre action" & Chr(10) & Chr(10) & "clic sur cellule ICI" & Chr(10) & "pour affecter votre appel")
    Exit Sub
    End If
 
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    ActiveWindow.LargeScroll ToRight:=-1
    ActiveSheet.Unprotect Password:=""
    Range(Cells(1, 14), Cells(1, 1)).Select
    ActiveWindow.Zoom = True 'ActiveWindow.Zoom = 114
    [A5] = "=""Eblts     ""&""       clic = Tri"""
    ActiveWindow.DisplayHorizontalScrollBar = False
    Range([a6], Cells(Rows.Count, "a").End(xlUp)).RowHeight = 55
 
    Columns("N:N").Select
    With Selection.Font
        .Color = -16777024
        .TintAndShade = 0
    End With
 
'    For i = 6 To 10000
'        If Cells(i, 10) = "NPR" Then
'        Rows.RowHeight = 55
'        End If
'    Next i

'    For i = 6 To Range("J" & Rows.Count).End(xlUp).Row
'        If Cells(i, 10) = "NPR" Then
'        Rows.RowHeight = 0
'        End If
'    Next

    [c1].Select
    ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
     Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

et la photo du beugue :
Regarde la pièce jointe 1121001
Pourriez-vous m'aider ?

Mille remerciements,
lionel

Bonjour à tous
En plus des instructions déjà données
Attention à la boucle.....
"Rows.RowHeight = 0" affecte toute la feuille
Si cela doit être la colonne J contenant "NPR"
Alors
Rows(i).RowHeight...
ou
Rows(i).Hidden = True
Selon.......

Efgé · 10 Novembre 2021

Re
Pour suivre Jacky67
Je dirais même plus, avec

VB:

For i = 6 To Range("J" & Rows.Count).End(xlUp).Row
    Rows(i).Hidden = Cells(i, 10) = "NPR"
Next i

On peux surement supprimer la boucle précédente

Code:

 For i = 6 To Range("J" & Rows.Count).End(xlUp).Row
        If Cells(i, 10) = "NPR" Then
        Rows.RowHeight = 55
        End If
    Next

Cordialement

Usine à gaz · 10 Novembre 2021

Bonjour Jacky67,
Bonjour Efgé,
Alors là c'est trop fort
Vous avez répondu à ma question suivante avant que je la pose lol
D'abord Jacky67 complété par Efgé
Trop, Trop fort
Vous êtes géniaux; mais ça, je le savais déjà,
Merci à vous deux,
lionel

Usine à gaz · 13 Novembre 2021

Bonjour Jacky67, Efgé, le Forum,
Bon WE à toutes et à tous

Pourriez-vous encore m'aider pour ce code que vous m'avez donné ?

VB:

    For i = 6 To Range("J" & Rows.Count).End(xlUp).Row
    Rows(i).Hidden = Cells(i, 10) = "NPR"
    Next i

Je voudrais que les lignes soient "Hidden" dans les deux cas "NPR" et "RdV Fait"
Je ne sais pas le coder.

je vous remercie par avance,
Amicalement,
lionel,

Compte Supprimé 979 · 13 Novembre 2021

Salut Lionel,

Il suffit d'ajouter un test

VB:

For i = 6 To Range("J" & Rows.Count).End(xlUp).Row
    If Cells(i, 10) = "NPR" or Cells(i, 10) = "RdV Fait" then Rows(i).Hidden = True
Next i

A+

Usine à gaz · 13 Novembre 2021

Bonjour Bruno
merci d'être encore là !
Merci pour l'info

Efgé · 13 Novembre 2021

Bonjour à tous
Je pense, mais peut-être me trompe-je que la propostion de BrunoM45 , que je salut, n'affiche pas les lignes qui ne comporteraient pas "RDV fail" ou "NPR"
Je propose

VB:

For i = 6 To Range("J" & Rows.Count).End(xlUp).Row
    Rows(i).Hidden = (Cells(i, 10) ="NPR" or Cells(i, 10) = "RdV Fait")
Next i

Non testé sur le fichier mais a verifier quand même...

Après on peut voir

Code:

For i = 6 To Range("J" & Rows.Count).End(xlUp).Row
    If Cells(i, 10) = "NPR" or Cells(i, 10) = "RdV Fait" then 
           Rows(i).Hidden = True
    Else
                     Rows(i).Hidden = False
   End IF
Next i

Cordialement

Usine à gaz · 13 Novembre 2021

Bonsoir Efgé,
Merci d'y être revenu
Il m'a semblé que le code de Bruno fonctionnait mais je vais voir.

Microsoft 365 Variable non définie

Usine à gaz

XLDnaute Barbatruc

Compte Supprimé 979

Efgé

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Compte Supprimé 979

Guest

Usine à gaz

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires