Code vba pour boucle recherche max dans colonnes
zubzub
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaiterais coder une boucle sous VBA me permettant : dans la feuille 2, de rechercher le max de chaque colonne de la feuille1 et de les coller dans la feuille 2 et ce en ligne (toujours dans la feuille 2).
LE problème c'est que j'aimerais une méthode qui compte automatiquement le nombre de colonnes dans la feuille 1 et qui colle donc le bon nombre de maximums dans la feuille 2 et en parallèle qui compte le nombre de ligne de chaque colonne afin de la parcourir complètement même si celle-ci possède des cellules vides.
Le but est d'avoir une macro utilisable avec des fichiers excel comportant un nombre de colonnes et de lignes variant.
Merci beaucoup par avance
Je souhaiterais coder une boucle sous VBA me permettant : dans la feuille 2, de rechercher le max de chaque colonne de la feuille1 et de les coller dans la feuille 2 et ce en ligne (toujours dans la feuille 2).
LE problème c'est que j'aimerais une méthode qui compte automatiquement le nombre de colonnes dans la feuille 1 et qui colle donc le bon nombre de maximums dans la feuille 2 et en parallèle qui compte le nombre de ligne de chaque colonne afin de la parcourir complètement même si celle-ci possède des cellules vides.
Le but est d'avoir une macro utilisable avec des fichiers excel comportant un nombre de colonnes et de lignes variant.
Merci beaucoup par avance
A voir également:
- Code vba pour boucle recherche max dans colonnes
- Code ascii - Guide
- Comment faire deux colonnes indépendantes dans word - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Code puk bloqué - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
3 réponses
Bonjour,
Pas besoin de VBA:
dans chaque classeur:
dans feuille2 A1: =SI(MAX(Feuil1!A:A)>0;MAX(Feuil1!A:A);"") ou
=MAX(Feuil1!A:A) si vous voulez les 0 des colonnes
ensuite curseur sur coin droit de la cellule maintenir click gauche et deplacement sur la droite sur x colonnes.
Pas besoin de VBA:
dans chaque classeur:
dans feuille2 A1: =SI(MAX(Feuil1!A:A)>0;MAX(Feuil1!A:A);"") ou
=MAX(Feuil1!A:A) si vous voulez les 0 des colonnes
ensuite curseur sur coin droit de la cellule maintenir click gauche et deplacement sur la droite sur x colonnes.
