Selection de cellule non contigues

Question

Bonjour tout le monde, je vais vous exposer mon problème. Je veux créer une macro qui me selectionne le chiffre max qui se situe soit dans la colonne F, H ,J, L ext... soit une colonne sur 2 à partir de la colonne F. Ce chiffre max devra être copier sur une autre feuille dénommée "rslt". Cette macro devra tourner en boucle sur toute les lignes car il y a 300 lignes. Résumé: Macro Elle devra donc aller sur la ligne 2 (car je commence en ligne 2), chercher le chiffre max (qui sera toujours inférieur à 1, mais ca je ne sais pas si c'est vraiment important) se trouvant dans l'une des colonnes F, H, J, L, ext et enfin le copier vers une autre feuille "rslt". Les données se trouvent sur la feuille "fc". J'ai donc commencer ma macro mais elle ne veut pas tourner, jai certainement du faire des érreurs dans le "range" mais apres je n'en n'ai aucune idée.

Sub copychiff() Dim ligne As Variant Dim lemaximum As Double i = 2 Sheets("fc").Select For k = 6 To 20 Step 2 Do While Not IsEmpty(fc.Cells(i, 1)) liste = Range(Cells(i, 6), Cells(i, 10), Cells(i, 12), Cells(i, 14)) lemaximum = WorksheetFunction.Max(Range("liste")) Sheets("departement").Cells(i, 2).Value = lemaximum i = i + 1 Loop Next End Sub

Merci d'avance.

nlz · Answer

Sub copynom()


Dim ligne As Variant
Dim lemaximum As Double
i = 2
Sheets("fc").Select


Do
liste = Range(Cells(i, 6), Cells(i, 10), Cells(i, 12), Cells(i, 14))
lemaximum = WorksheetFunction.Max(Range("liste"))
Sheets("departement").Cells(i, 2).Value = lemaximum
i = i + 1


Loop Until IsEmpty(fc.Cells(i, 1))
Next
End Sub


<hr />J'ai fais de petite modification car j'avais copié une macro avec K qui ne me sert pas.

nlz · Answer

J'ai posté mon probleme dans le forum VBA qui correspond mieux a ma demande.

Selection de cellule non contigues

2 réponses

Votre réponse

Discussions similaires