Inverser les données mis en colonne en donnée mis en ligne

mth

XLDnaute Barbatruc

• 2 Juin 2008

• #16

Re : Inverser les données mis en colonne en donnée mis en ligne

à part le code erreur et la ligne qui semble bloquer, je ne vois pas ce que je peux trouver, dis moi ce que je dois chercher et où pour te répondre ...😱

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 2 Juin 2008

• #17

Re : Inverser les données mis en colonne en donnée mis en ligne

Re-,

Tu lances l'enregistreur de macro, sur le même fichier, et tu sélectionnes la ligne 3, puis Ctrl + F, tu entres 01/02/2008, puis suivant
Stoppe l'enregistreur, et donne le code
Merci

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 2 Juin 2008

• #18

Re : Inverser les données mis en colonne en donnée mis en ligne

idem en ayant mis ça:

c = Rows("3:3").Find(Target).Column

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 2 Juin 2008

• #19

Re : Inverser les données mis en colonne en donnée mis en ligne

Comme ça?

Sub Macro1()
Rows("3:3").Select
Selection.Find(What:="01/02/2008", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
End Sub

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 2 Juin 2008

• #20

Re : Inverser les données mis en colonne en donnée mis en ligne

Bon, c'est le même code que 2003....

Change la variable, à la place de c, mets col, par exemple

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
If Target = "Tous" Then Cells.EntireColumn.Hidden = False: Exit Sub
Application.ScreenUpdating = False
DerCol = [IV3].End(xlToLeft).Column + 2
    Range(Cells(3, 3), Cells(3, DerCol)).EntireColumn.Hidden = False
    col = Rows("3:3").Find(Target).Column
    Range(Cells(3, 3), Cells(3, DerCol)).EntireColumn.Hidden = True
    Range(Cells(3, col), Cells(3, col + 2)).EntireColumn.Hidden = False
Application.ScreenUpdating = True
End If
End Sub

A tout z'hasard......

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 3 Juin 2008

• #21

Re : Inverser les données mis en colonne en donnée mis en ligne

même résultat 😱

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 3 Juin 2008

• #22

Re : Inverser les données mis en colonne en donnée mis en ligne

Re-,

une autre démarche :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
If Target = "Tous" Then Cells.EntireColumn.Hidden = False: Exit Sub
Application.ScreenUpdating = False
DerCol = [IV3].End(xlToLeft).Column + 2
    Range(Cells(3, 3), Cells(3, DerCol)).EntireColumn.Hidden = False
    Set col = Rows("3:3").Find(Target)
    c = col.Column
    Range(Cells(3, 3), Cells(3, DerCol)).EntireColumn.Hidden = True
    Range(Cells(3, c), Cells(3, c + 2)).EntireColumn.Hidden = False
Application.ScreenUpdating = True
End If
End Sub

On va y arriver....😎

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 3 Juin 2008

• #23

Re : Inverser les données mis en colonne en donnée mis en ligne

cette fois c'est la ligne

c = col.Column


qui lui déplait 😱

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 3 Juin 2008

• #24

Re : Inverser les données mis en colonne en donnée mis en ligne

Patient, le gars, hein?????😀😀

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
If Target = "Tous" Then Cells.EntireColumn.Hidden = False: Exit Sub
Application.ScreenUpdating = False
DerCol = [IV3].End(xlToLeft).Column + 2
    Range(Cells(3, 3), Cells(3, DerCol)).EntireColumn.Hidden = False
    Set col = Rows("3:3").Find(Target)
    Range(Cells(3, 3), Cells(3, DerCol)).EntireColumn.Hidden = True
    Range(Cells(3, col.Column), Cells(3, col.Column + 2)).EntireColumn.Hidden = False
Application.ScreenUpdating = True
End If
End Sub

Peut-être?😎

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 3 Juin 2008

• #25

Re : Inverser les données mis en colonne en donnée mis en ligne

sourire, oui effectivement j'admire ta patience! (mais ça tu le sais déjà...)

Bon là c'est la ligne ci dessous qui plante:

Range(Cells(3, col.Column), Cells(3, col.Column + 2)).EntireColumn.Hidden = False

dans le fichier les colonnes A et B sont apparentes, et ensuite tout est masqué jusqu'à AS qui est visible.

Quand je sélectionne "TOUS" ça marche, c'est le choix d'un mois qui bloque.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 3 Juin 2008

• #26

Re : Inverser les données mis en colonne en donnée mis en ligne

Re-,

dans le code, clique au milieu de col, et fais Débogage, ajouter un espion
Tu as la fenêtre Espions, en bas, avec
Expression :col
Valeur <Hors du contexte>
Type : Variant/Empty
Contexte : Feuil1.Worksheet_Change

Tu mets un point d'arrêt (clique dans la marge grise, au niveau de DerCol, la ligne passe en marron), tu passeras en mode pas à pas

Reviens sur la feuille, et change de mois
Tu arriveras automatiquement au point d'arrêt
Tu fais F8 jusqu'à la ligne Set col, puis F8
Tu auras les valeurs de col en bas
Reviens pour dire ce que la bête dit

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 3 Juin 2008

• #27

Re : Inverser les données mis en colonne en donnée mis en ligne

l'espion dit:

Expression col
Valeur Nothing
Type Variant/Object
Contexte Feuil1.Worksheet_Change

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 3 Juin 2008

• #28

Re : Inverser les données mis en colonne en donnée mis en ligne

Re-
essaie en mettant en début de code

Code:

Dim col As Range

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 3 Juin 2008

• #29

Re : Inverser les données mis en colonne en donnée mis en ligne

snifff,

pareil ....

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 3 Juin 2008

• #30

Re : Inverser les données mis en colonne en donnée mis en ligne

Bon,
les grands moyens, la procédure Alpha/Mike du célèbre Docteur Onhoff

Euh, un arrêt marche de la machine 😀

 

Vote positif 0 Vote négatif