A chaque fois que je sauvegarde mon classeur, les listes déroulantes de ma
feuille disparaissent! Elles sont créer avec l'option validation ==> liste
==> et j'ai nommée mes liste!
En fait c'est après avoir lancée une macro (qui n'utilise pas la liste mais
uniquement la valeur qelle contient) et après avoir sauvegardé le classeur
que les liste déroulante ne sont plus accessibles!!!! J'avais jamais vu ça
encor! La macro en question est très indigeste mais au cas ou, je vous la
donne :
Si vous avez déjà eu le pb!!! merci du coup de main!
Sub TEST_IMPR_ETIQ_NYLON()
' TEST de la cellule
If Range("D8") = "" Then
MsgBox ("VERIFIER LA SAISIE")
Exit Sub
End If
'Sélectionner et copier la ligne corespondant à la valeur de la cellule D8
Dim c As Range, blnOK As Boolean, strTest As String
strTest = Sheets("MENU_IMPRESSION").Range("D8")
blnOK = False
For Each c In Sheets("Base de donnée").Range("B2:B65536")
If c = strTest Then
blnOK = True
Exit For
End If
Next
If Not blnOK Then
Exit Sub
End If
Sheets("Base de donnée").Activate
Sheets("Base de donnée").Rows(c.Row).Select
Selection.Copy
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Je viens de faire une découverte!
Lorsque je me positionne sur la cellule ou se trouve la liste déroulante et que je sauvgarde, la liste reste!
Quand je me positionnne sur une cellule à coté ou ailleurs, là, la liste disparait!!!! ETRANGE NON ?????
Bonjour à tous!
J'ai un souci avec l'option validation!
A chaque fois que je sauvegarde mon classeur, les listes déroulantes de ma feuille disparaissent! Elles sont créer avec l'option validation ==> liste ==> et j'ai nommée mes liste!
En fait c'est après avoir lancée une macro (qui n'utilise pas la liste mais uniquement la valeur qelle contient) et après avoir sauvegardé le classeur que les liste déroulante ne sont plus accessibles!!!! J'avais jamais vu ça encor! La macro en question est très indigeste mais au cas ou, je vous la donne :
Si vous avez déjà eu le pb!!! merci du coup de main!
Sub TEST_IMPR_ETIQ_NYLON()
' TEST de la cellule If Range("D8") = "" Then MsgBox ("VERIFIER LA SAISIE") Exit Sub End If
'Sélectionner et copier la ligne corespondant à la valeur de la cellule D8 Dim c As Range, blnOK As Boolean, strTest As String strTest = Sheets("MENU_IMPRESSION").Range("D8") blnOK = False For Each c In Sheets("Base de donnée").Range("B2:B65536") If c = strTest Then blnOK = True Exit For End If Next If Not blnOK Then Exit Sub End If Sheets("Base de donnée").Activate Sheets("Base de donnée").Rows(c.Row).Select Selection.Copy
Range("A1:B9").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous
Je viens de faire une découverte!
Lorsque je me positionne sur la cellule ou se trouve la liste déroulante et
que je sauvgarde, la liste reste!
Quand je me positionnne sur une cellule à coté ou ailleurs, là, la liste
disparait!!!! ETRANGE NON ?????
Bonjour à tous!
J'ai un souci avec l'option validation!
A chaque fois que je sauvegarde mon classeur, les listes déroulantes de ma
feuille disparaissent! Elles sont créer avec l'option validation ==> liste
==> et j'ai nommée mes liste!
En fait c'est après avoir lancée une macro (qui n'utilise pas la liste mais
uniquement la valeur qelle contient) et après avoir sauvegardé le classeur
que les liste déroulante ne sont plus accessibles!!!! J'avais jamais vu ça
encor! La macro en question est très indigeste mais au cas ou, je vous la
donne :
Si vous avez déjà eu le pb!!! merci du coup de main!
Sub TEST_IMPR_ETIQ_NYLON()
' TEST de la cellule
If Range("D8") = "" Then
MsgBox ("VERIFIER LA SAISIE")
Exit Sub
End If
'Sélectionner et copier la ligne corespondant à la valeur de la cellule D8
Dim c As Range, blnOK As Boolean, strTest As String
strTest = Sheets("MENU_IMPRESSION").Range("D8")
blnOK = False
For Each c In Sheets("Base de donnée").Range("B2:B65536")
If c = strTest Then
blnOK = True
Exit For
End If
Next
If Not blnOK Then
Exit Sub
End If
Sheets("Base de donnée").Activate
Sheets("Base de donnée").Rows(c.Row).Select
Selection.Copy
Lorsque je me positionne sur la cellule ou se trouve la liste déroulante et que je sauvgarde, la liste reste!
Quand je me positionnne sur une cellule à coté ou ailleurs, là, la liste disparait!!!! ETRANGE NON ?????
Bonjour à tous!
J'ai un souci avec l'option validation!
A chaque fois que je sauvegarde mon classeur, les listes déroulantes de ma feuille disparaissent! Elles sont créer avec l'option validation ==> liste ==> et j'ai nommée mes liste!
En fait c'est après avoir lancée une macro (qui n'utilise pas la liste mais uniquement la valeur qelle contient) et après avoir sauvegardé le classeur que les liste déroulante ne sont plus accessibles!!!! J'avais jamais vu ça encor! La macro en question est très indigeste mais au cas ou, je vous la donne :
Si vous avez déjà eu le pb!!! merci du coup de main!
Sub TEST_IMPR_ETIQ_NYLON()
' TEST de la cellule If Range("D8") = "" Then MsgBox ("VERIFIER LA SAISIE") Exit Sub End If
'Sélectionner et copier la ligne corespondant à la valeur de la cellule D8 Dim c As Range, blnOK As Boolean, strTest As String strTest = Sheets("MENU_IMPRESSION").Range("D8") blnOK = False For Each c In Sheets("Base de donnée").Range("B2:B65536") If c = strTest Then blnOK = True Exit For End If Next If Not blnOK Then Exit Sub End If Sheets("Base de donnée").Activate Sheets("Base de donnée").Rows(c.Row).Select Selection.Copy
Range("A1:B9").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous
gerard boucher
De : Daniel Groupes : microsoft.public.fr.excel Date : Mon, 1 Aug 2005 05:19:05 -0700 Objet : Validation et liste déroulante
Bonjour à tous!
J'ai un souci avec l'option validation!
A chaque fois que je sauvegarde mon classeur, les listes déroulantes de ma feuille disparaissent! Elles sont créer avec l'option validation ==> liste ==> et j'ai nommée mes liste!
En fait c'est après avoir lancée une macro (qui n'utilise pas la liste mais uniquement la valeur qelle contient) et après avoir sauvegardé le classeur que les liste déroulante ne sont plus accessibles!!!! J'avais jamais vu ça encor! La macro en question est très indigeste mais au cas ou, je vous la donne :
Si vous avez déjà eu le pb!!! merci du coup de main!
Sub TEST_IMPR_ETIQ_NYLON()
' TEST de la cellule If Range("D8") = "" Then MsgBox ("VERIFIER LA SAISIE") Exit Sub End If
'Sélectionner et copier la ligne corespondant à la valeur de la cellule D8 Dim c As Range, blnOK As Boolean, strTest As String strTest = Sheets("MENU_IMPRESSION").Range("D8") blnOK = False For Each c In Sheets("Base de donnée").Range("B2:B65536") If c = strTest Then blnOK = True Exit For End If Next If Not blnOK Then Exit Sub End If Sheets("Base de donnée").Activate Sheets("Base de donnée").Rows(c.Row).Select Selection.Copy
Range("A1:B9").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Sheets("MENU_IMPRESSION").Select Application.ScreenUpdating = True Sheets("ETIQUETTE_AUTOCOLLANTE").Copy Range("A1:B9").Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A11").Select Application.CutCopyMode = False Exit Sub End If
End Sub
De : Daniel <Daniel@discussions.microsoft.com>
Groupes : microsoft.public.fr.excel
Date : Mon, 1 Aug 2005 05:19:05 -0700
Objet : Validation et liste déroulante
Bonjour à tous!
J'ai un souci avec l'option validation!
A chaque fois que je sauvegarde mon classeur, les listes déroulantes de ma
feuille disparaissent! Elles sont créer avec l'option validation ==> liste
==> et j'ai nommée mes liste!
En fait c'est après avoir lancée une macro (qui n'utilise pas la liste mais
uniquement la valeur qelle contient) et après avoir sauvegardé le classeur
que les liste déroulante ne sont plus accessibles!!!! J'avais jamais vu ça
encor! La macro en question est très indigeste mais au cas ou, je vous la
donne :
Si vous avez déjà eu le pb!!! merci du coup de main!
Sub TEST_IMPR_ETIQ_NYLON()
' TEST de la cellule
If Range("D8") = "" Then
MsgBox ("VERIFIER LA SAISIE")
Exit Sub
End If
'Sélectionner et copier la ligne corespondant à la valeur de la cellule D8
Dim c As Range, blnOK As Boolean, strTest As String
strTest = Sheets("MENU_IMPRESSION").Range("D8")
blnOK = False
For Each c In Sheets("Base de donnée").Range("B2:B65536")
If c = strTest Then
blnOK = True
Exit For
End If
Next
If Not blnOK Then
Exit Sub
End If
Sheets("Base de donnée").Activate
Sheets("Base de donnée").Rows(c.Row).Select
Selection.Copy
De : Daniel Groupes : microsoft.public.fr.excel Date : Mon, 1 Aug 2005 05:19:05 -0700 Objet : Validation et liste déroulante
Bonjour à tous!
J'ai un souci avec l'option validation!
A chaque fois que je sauvegarde mon classeur, les listes déroulantes de ma feuille disparaissent! Elles sont créer avec l'option validation ==> liste ==> et j'ai nommée mes liste!
En fait c'est après avoir lancée une macro (qui n'utilise pas la liste mais uniquement la valeur qelle contient) et après avoir sauvegardé le classeur que les liste déroulante ne sont plus accessibles!!!! J'avais jamais vu ça encor! La macro en question est très indigeste mais au cas ou, je vous la donne :
Si vous avez déjà eu le pb!!! merci du coup de main!
Sub TEST_IMPR_ETIQ_NYLON()
' TEST de la cellule If Range("D8") = "" Then MsgBox ("VERIFIER LA SAISIE") Exit Sub End If
'Sélectionner et copier la ligne corespondant à la valeur de la cellule D8 Dim c As Range, blnOK As Boolean, strTest As String strTest = Sheets("MENU_IMPRESSION").Range("D8") blnOK = False For Each c In Sheets("Base de donnée").Range("B2:B65536") If c = strTest Then blnOK = True Exit For End If Next If Not blnOK Then Exit Sub End If Sheets("Base de donnée").Activate Sheets("Base de donnée").Rows(c.Row).Select Selection.Copy
