trier des donnees par colonne a l'ouverture d'un classeur

Re : trier des donnees par colonne a l'ouverture d'un classeur

Bonsoir

Pour que ce type de code ( If Cells(Lig...) fonctionne il faut activer la feuille "DONNEE"
La macro considère pour Cells la feuille active.

Solutions
écrire
Sheets("DONNEE").cells(lig.......

ou
With Sheets("DONNEE")
If .Cells(Lig... ( attention au point)


end with
ou
Sheets("DONNEE").Activate


JP

Re : trier des donnees par colonne a l'ouverture d'un classeur

Le probleme c'est que vu ce que je fais .

Il ne faut pas que la page Donnee s'ouvre. De plus je vais la cacher

Comment puis je faire sans etre obliger de l'ouvrir?

merci

Re : trier des donnees par colonne a l'ouverture d'un classeur

J'ai essayer sa: mais sa marque une erreur : ext without for

Sub creationsliens()

Sheets("DONNEE").Range("G2:AM595").ClearContents
Dim Col As Integer, Lig As Long, DerliG As Long
For Col = 1 To 33
For Lig = 2 To 595
' Colonne AP = 42 ème / G = 7ème
With Sheets("DONNEE") If Cells(Lig, 41 + Col) <> "" Then
DerliG = Cells(Rows.Count, 6 + Col).End(xlUp).Row
Cells(DerliG + 1, 6 + Col) = Cells(Lig, 41 + Col)
End If
Next Lig
Next Col

End Sub


et j'ai essayer sa : mais cela ne change rien
Sub creationsliens()

Sheets("DONNEE").Range("G2:AM595").ClearContents
Dim Col As Integer, Lig As Long, DerliG As Long
For Col = 1 To 33
For Lig = 2 To 595
' Colonne AP = 42 ème / G = 7ème
If Sheets("DONNEE").Cells(Lig, 41 + Col) <> "" Then
DerliG = Cells(Rows.Count, 6 + Col).End(xlUp).Row
Cells(DerliG + 1, 6 + Col) = Cells(Lig, 41 + Col)
End If
Next Lig
Next Col

End Sub

PS: Moi j'ai besoin d'un code ou je ne suis pas obliger d'ouvrir la feuille donnee

merci de ta patience

Re : trier des donnees par colonne a l'ouverture d'un classeur

Bonsoir

A tester
Sub creationsliens()
Dim Col As Integer, Lig As Long, DerliG As Long
With Sheets("DONNEE")
.Range("G2:AM595").ClearContents

For Col = 1 To 33
For Lig = 2 To 595
' Colonne AP = 42 ème / G = 7ème
If .Cells(Lig, 41 + Col) <> "" Then
DerliG = .Cells(Rows.Count, 6 + Col).End(xlUp).Row
.Cells(DerliG + 1, 6 + Col) = .Cells(Lig, 41 + Col)
End If
Next Lig
Next Col
end with
End Sub

JP

Re : trier des donnees par colonne a l'ouverture d'un classeur

Sa marche !!!! youpi !!!

Merci de ton aide precieuse et merci d'avoir pris du temps pour m'aider