Probleme d'appliction.worksheet
colbubu
-
colbubu -
colbubu -
bonjour à tous,
mon probleme est simple
je dispose d'un tableau de la forme
1_SS1 1_SS2 1_AG 2_SS1 2_SS2 2_AG 3_SS1 3_ SS2 3_AG
A1 A2 A3 A4 A5 A6 A7 A8 A9
B1 B2 B3 B4 B5 B6 B7 B8 B9
C1 C2 C3 C4 C5 C6 C7 C8 C9
etc...
je dois créer une macro capable de prendre la maximum de chaque colonne et de me le mettre dans un nouveau classeur xl.
j'en suis la mais ça ne veut pas marcher et je ne comprend pas pourquoi
code:
Dim c As Object
Dim S1 As String
'trouver les données du tableau
Worksheets("Feuil1").Select
Set c = ActiveSheet.UsedRange.Find("*" & "SS1" & "*", , , xlWhole)
If c Is Nothing Then
MsgBox "SS1 introuvable"
Exit Sub
End If
' Boucle tant que pas vide
Do While Not (IsEmpty(ActiveCell))
ActiveCell(50, c.Column).Select
M = Application.WorksheetFunction.Max(Range(Cells(50, c.Column), Cells(59, c.Column)))
Cells(60, c.Column).Formula = M
c = c + 3
Loop
merci de votre aide
cordialement
mon probleme est simple
je dispose d'un tableau de la forme
1_SS1 1_SS2 1_AG 2_SS1 2_SS2 2_AG 3_SS1 3_ SS2 3_AG
A1 A2 A3 A4 A5 A6 A7 A8 A9
B1 B2 B3 B4 B5 B6 B7 B8 B9
C1 C2 C3 C4 C5 C6 C7 C8 C9
etc...
je dois créer une macro capable de prendre la maximum de chaque colonne et de me le mettre dans un nouveau classeur xl.
j'en suis la mais ça ne veut pas marcher et je ne comprend pas pourquoi
code:
Dim c As Object
Dim S1 As String
'trouver les données du tableau
Worksheets("Feuil1").Select
Set c = ActiveSheet.UsedRange.Find("*" & "SS1" & "*", , , xlWhole)
If c Is Nothing Then
MsgBox "SS1 introuvable"
Exit Sub
End If
' Boucle tant que pas vide
Do While Not (IsEmpty(ActiveCell))
ActiveCell(50, c.Column).Select
M = Application.WorksheetFunction.Max(Range(Cells(50, c.Column), Cells(59, c.Column)))
Cells(60, c.Column).Formula = M
c = c + 3
Loop
merci de votre aide
cordialement
