Selection de cellule non contiguesRésolu

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 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("rslt").Cells(i, 2).Value = lemaximum i = i + 1 Loop Until IsEmpty(fc.Cells(i, 1)) Next End Sub

Merci d'avance.

cs_MPi · Accepted Answer

Essaie ceci pour voir
lemaximum = WorksheetFunction.Max(liste)

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Le grand Zorro · Answer

bonjour

"Liste" c'est une plage nommée ?

Le grand Zorro · Answer

Je ne vois pas l'intérêt de passer par liste,
Il suffit de mettre les plages de cellules séparée d'un point virgule?! non

nlz · Answer

tu veux dire comme ca :

lemaximum = WorksheetFunction.Max(Range(Cells(i, 6); Cells(i, 10); Cells(i, 12); Cells(i, 14))

Il veux pas, ca n'a me met une erreur si je mets un " ; "

nlz · Answer

C'est bon ca marche, merci beaucoup !! 


Bonne journée.

Selection de cellule non contigues

5 réponses

Votre réponse

Discussions similaires