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

  • Initiateur de la discussion Initiateur de la discussion miremy
  • Date de début Date de début

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 !

M

miremy

Guest
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 modification par un modérateur:
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:
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
 
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
 
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
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…