Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Boucle sur les cellules de plusieurs colonnes Résolu

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

miremy

XLDnaute Nouveau
Bonjour à tous 🙂
Je viens vous demander de l'aide afin de créer une boucle pour afficher 100 à la valeur max des cellules de chaque colonne et de respecter la proportion avec les autres cellules.
J'arrive à le faire colonne par colonne mais n'arrive pas a faire une boucle car j'ai beaucoup de colonnes a traiter.
Donc si quelqu'un peut m'aider, il sera bienvenu
merci d'avance.
miremy
ci joint mon fichier
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Boucle sur les cellules de plusieurs colonnes

Hello,

essaie avec ce code
Code: 
Sub miseenpoucentage()

'selection des colonnes
[G2].CurrentRegion.Select

Set zone = [G2].CurrentRegion
PremièreColonne = zone.Column
nbcolonnes = zone.Columns.Count
nblignes = zone.Rows.Count
 
For i = PremièreColonne To nbcolonnes + PremièreColonne - 1
    [Q2] = Application.WorksheetFunction.Min(Range(Cells(2, i), Cells(nblignes, i)))
    For j = 2 To nblignes
        Cells(j, i) = Cells(j, i) - [Q2] - 1
    Next j
    [Q1] = Application.WorksheetFunction.Max(Range(Cells(2, i), Cells(nblignes, i)))
    
    For j = 2 To nblignes
        Cells(j, i) = (Cells(j, i) / -[Q1]) * 100
    Next j
Next i
Range("q1:q2").Clear
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Boucle sur les cellules de plusieurs colonnes

bonsoir vgendron
Je viens d'essayer ton code ; il doit y avoir une modification à faire car il me donne des résultats négatifs.
Je vais vérifier pourquoi
Merci de m'avoir aiguillé sur la boucle à faire
Miremy
 
Vote positif 0 Vote négatif
Re : Boucle sur les cellules de plusieurs colonnes

J'ai rectifié le code

Sub miseenpoucentage111()
'selection des colonnes
[G2].CurrentRegion.Select

Set zone = [G2].CurrentRegion
PremièreColonne = zone.Column
nbcolonnes = zone.Columns.Count
nblignes = zone.Rows.Count

For i = PremièreColonne To nbcolonnes + PremièreColonne - 1
[Q2] = Application.WorksheetFunction.Min(Range(Cells(2, i), Cells(nblignes, i)))
For j = 2 To nblignes
Cells(j, i) = Cells(j, i) - ([Q2] - 1)
Next j
[Q1] = Application.WorksheetFunction.Max(Range(Cells(2, i), Cells(nblignes, i)))

For j = 2 To nblignes
Cells(j, i) = (Cells(j, i) / [Q1]) * 100
Next j
Next i
Range("q1:q2").Clear
End Sub


Et cela fonctionne impec
Encore merci
 
Vote positif 0 Vote négatif
Re : Boucle sur les cellules de plusieurs colonnes Résolu

oui pardon, un malheureux copier coller qui a laissé le signe "-" ;-)
ps: la première ligne
Code: 
'selection des colonnes
[G2].CurrentRegion.Select
ne sert à rien et peut etre supprimée
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Résolu(e)
Microsoft 365 [RESOLU] VBA boucle, insertion plusieurs lignes, exécution formules, suppression sur si
Réponses
5
Affichages
553
Phil69970
E
  • Résolu(e)
Microsoft 365 ComboBox "dynamiques" sans doublon sur plusieurs colonnes
Réponses
2
Affichages
284
ExcLnoob
E
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
385
Anthony_51
A
P
  • Résolu(e)
Microsoft 365 Macro Excel pour effectuer des opérations sur les lignes et cellules adjacentes
2
Réponses
19
Affichages
377
Perceval973
P
  • Question Question
XL 2019 Validation de Données sur plusieurs colonnes
2
Réponses
26
Affichages
1 K
Caninge
A
  • Résolu(e)
Microsoft 365 Demande d'aide sur des extractions de lignes
Réponses
7
Affichages
177
agayet
A
  • Résolu(e)
Microsoft 365 Ajout d'onglet par VBA et entête de colonnes
2
Réponses
17
Affichages
1 K
Roseline
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
647
Max
M
  • Question Question
XL 2021 Calcul jours, TCD et outil de pilotage via TCD
Réponses
6
Affichages
421
Raziel abel
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
873
arnomorize
A
  • Résolu(e)
XL 2021 (Résolu) Aide vrai/faux dans plusieurs colonnes de cases à cocher
2
Réponses
27
Affichages
1 K
Dranreb
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
682
Max
M
O
  • Question Question
XL 2019 erreur de valeur sur formule
2
Réponses
18
Affichages
1 K
olivier1984
O
C
  • Question Question
Microsoft 365 Problème Code VBA
Réponses
9
Affichages
448
fanch55
B
  • Question Question
XL 2013 Transposition de filtres multiples sur plusieurs feuilles
Réponses
11
Affichages
751
BIROULIG
B
B
  • Résolu(e)
Power Query Faire un traitement sur une colonne à partir d'une autre liste
Réponses
6
Affichages
790
btil
B
POWERQUERY :: Totaliser les colonnes d'un tableau - 3 méthodes
Réponses
0
Affichages
489
oguruma
L
  • Question Question
XL 2010 Filtrer et mise en couleur de cellules sur une colonne
Réponses
8
Affichages
711
sylvanu
  • Résolu(e)
XL 2021 Supprimer les lignes qui contiennent des cellules vides dans les colonnes "A à M" à partir de la ligne 5
Réponses
6
Affichages
666
Usine à gaz
A
  • Résolu(e)
Microsoft 365 Copier la même cellule de plusieurs onglets dans différentes colonnes
2
Réponses
23
Affichages
1 K
AlexiaC
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…