Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel boucle

boucle

11 réponses
Avatar
sylvain
bonsoir a tous
qq peut il m'aider a creer une boucle (if ;then)
dans colonne "a"des prenoms colonnes "b" des chriffres
paul 125
pierre 98
jean 150
paul 98
cette boucle mettrait en gras les lignes ou paul est associes a un
chriffre au dela de 100
le tableau demmarre en a1 ;b1et finit en a300;b300
merci de votre aide
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Patrick Fredin
Bonjour,

For iCpt = 1 To 300
If Range("A" & iCpt) = "Paul" And Range("B" & iCpt) > 100 Then
Range("A" & iCpt & ":B" & iCpt).Font.Bold = True
End If
Next

Bonne journée.

--
Patrick


"sylvain" wrote:

bonsoir a tous
qq peut il m'aider a creer une boucle (if ;then)
dans colonne "a"des prenoms colonnes "b" des chriffres
paul 125
pierre 98
jean 150
paul 98
cette boucle mettrait en gras les lignes ou paul est associes a un
chriffre au dela de 100
le tableau demmarre en a1 ;b1et finit en a300;b300
merci de votre aide




Avatar
Didier Bicking
Plus complet, pour pouvoir faire un nouveau passage après avoir modifié des
valeurs :
For iCpt = 1 To 300
If Range("A" & iCpt) = "Paul" And Range("B" & iCpt) > 100 Then
Range("A" & iCpt & ":B" & iCpt).Font.Bold = True
Else
Range("A" & iCpt & ":B" & iCpt).Font.Bold = False
End If
Next

Avec tout mon respect, Patrick

--
Bon courage

Didier Bicking

http://perso.wanadoo.fr/dbicking


"Patrick Fredin" a écrit dans le message
de news:
Bonjour,

For iCpt = 1 To 300
If Range("A" & iCpt) = "Paul" And Range("B" & iCpt) > 100 Then
Range("A" & iCpt & ":B" & iCpt).Font.Bold = True
End If
Next

Bonne journée.

--
Patrick


"sylvain" wrote:

bonsoir a tous
qq peut il m'aider a creer une boucle (if ;then)
dans colonne "a"des prenoms colonnes "b" des chriffres
paul 125
pierre 98
jean 150
paul 98
cette boucle mettrait en gras les lignes ou paul est associes a un
chriffre au dela de 100
le tableau demmarre en a1 ;b1et finit en a300;b300
merci de votre aide






Avatar
Pounet95
Bonsoir,
Autre proposition :

Avec une MEFC ( mise en forme conditionnelle )
Sélectionner les lignes sur lesquelles le format sera appliqué,
ensuite menu Format/Mise en forme conditionnelle
en condition 1, choisir la formule est
dans la zone de siaise de la formule, copier cette formule :

=SI(ET($A11="paul";$B11>100);VRAI;FAUX)

cliquer sur le bouton Format et mettre les paramètres voulus,
valider avec bouton Appliquer

et ça roule ....... sans VBA
Bonne soirée


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"sylvain" a écrit dans le message de news:

bonsoir a tous
qq peut il m'aider a creer une boucle (if ;then)
dans colonne "a"des prenoms colonnes "b" des chriffres
paul 125
pierre 98
jean 150
paul 98
cette boucle mettrait en gras les lignes ou paul est associes a un
chriffre au dela de 100
le tableau demmarre en a1 ;b1et finit en a300;b300
merci de votre aide



Avatar
Michel Gaboly
Bonsoir,

Pas besoin de VBA pour cela, la mise en forme conditionnelle (MEFC), acce ssible par le menu "Format", est faite pour cela.

Cela va permettre, en fonction d'une formule, de mettre en gras les cellu les des lignes où il y a la fois "Paul" en
colonne A et une valeur " > 100" en colonne B.


1 - Sélectionne la plage concernée par hypothèse A1:B300 (peu impor te si la première ligne est une plage de titres)

2 - "Format", "MEFC..."

3 - Un dialogue apparaît avec un cadre "Condition 1".

4 - Clique sur le second menu de ce cadre, et remplace "la valeur de la c ellule est" par "la formule est".

5 - A droite, entre la formule, =ET($A1 = "Paul";$B1 >100), ceci si l a cellule active est la cellule A1 (MÊME numéro de
ligne). Attention aux "$" : devant les lettres désignant les colonnes, mais pas devant les chiffres correspondant au
numéro de ligne.

6 - Clique sur le bouton "Format...", puis sur l'onglet Police. Tu peux é galement choisir une couleur pour la police et
pour le fond de la cellule (onglet "Motif").

7 - Sélectionne "Gras" et valide 2 fois (1 pour faire disparaître la fenêtre permettant de choisir le format, la seconde
pour refermer le dialogue principal de la MEFC)

A l'issue de ces manips, les lignes concernées seront en gras en colonn e A et B, là où les 2 conditions sont remplies.
Pour que le gras aille au-delà de la colonne B, il faut sélectionner au départ plus de colonnes, ou compléter la zone où
appliquer la MEFC avec Copier-Collage spécial "Format"


Il est possible d'utiliser ainsi jusqu'à 3 conditions, grace au bouton ajouter. Chacune peut être basée sur des valeurs
ou une formule (premier menu de chaque cadre "Condition n").

Il est possible de sélectionner plusieurs cellules à la fois, contigü es ou non pour appliquer le format.

Voilà.


Si cela ne marche pas du premier coup, vérifie les "$" dans la formule : il ont pour fonction d'indiquer qu'il faut
raisonner en référence absolue (présence du "$") pour les colonnes, et en référence relative (pas de "$") pour les
lignes. En d'autres termes, qu'on soit en colonne A ou B, ou BZ, il faut toujours se référer aux colonnes A pour la
présence de "Paul" et B pour le " > 100". Par contre si on est en ligne 12, il faut tester les cellules de la ligne 12,
tandis qu'en ligne "xx", on teste celles de la ligne "xx". C'est pourquoi il est IMPÉRATIF que les numéros de lignes
entrés quand on saisit la formule soient ceux de la cellule active.



bonsoir a tous
qq peut il m'aider a creer une boucle (if ;then)
dans colonne "a"des prenoms colonnes "b" des chriffres
paul 125
pierre 98
jean 150
paul 98
cette boucle mettrait en gras les lignes ou paul est associes a un
chriffre au dela de 100
le tableau demmarre en a1 ;b1et finit en a300;b300
merci de votre aide




--
Cordialement,

Michel Gaboly
www.gaboly.com

Avatar
Pounet95
Re,
petite erreur de trznscription ( mais qui ne devrait pas avoir trop
d'effet),
remplacer le 11 par 1

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Pounet95" a écrit dans le message de news:
%
Bonsoir,
Autre proposition :

Avec une MEFC ( mise en forme conditionnelle )
Sélectionner les lignes sur lesquelles le format sera appliqué,
ensuite menu Format/Mise en forme conditionnelle
en condition 1, choisir la formule est
dans la zone de siaise de la formule, copier cette formule :

=SI(ET($A11="paul";$B11>100);VRAI;FAUX)

cliquer sur le bouton Format et mettre les paramètres voulus,
valider avec bouton Appliquer

et ça roule ....... sans VBA
Bonne soirée


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"sylvain" a écrit dans le message de news:

bonsoir a tous
qq peut il m'aider a creer une boucle (if ;then)
dans colonne "a"des prenoms colonnes "b" des chriffres
paul 125
pierre 98
jean 150
paul 98
cette boucle mettrait en gras les lignes ou paul est associes a un
chriffre au dela de 100
le tableau demmarre en a1 ;b1et finit en a300;b300
merci de votre aide






Avatar
Michel Gaboly
Bonsoir Pounet,

D'accord avec toi, je viens d'envoyer un message disant à peu près la même chose (en + détaillé, on ne se refait pas ;-)).

Toutefois, si tu ne précises pas que ta formule n'est valable que si la cellule active est en ligne 11, il va avoir des
surprises ;-((


D'autre part, point de détail, VRAI et FAUX sont totalement superflus :

Dans la formule =ET($A11="paul";$B11>100), l'expression est évalué e, ce qui a aboutit à un booléen.

Le fait de rajouter un SI() conduit à une seconde évaluation, qui lai sse le résultat invariant, c'est donc redondant.


Bonsoir,
Autre proposition :

Avec une MEFC ( mise en forme conditionnelle )
Sélectionner les lignes sur lesquelles le format sera appliqué,
ensuite menu Format/Mise en forme conditionnelle
en condition 1, choisir la formule est
dans la zone de siaise de la formule, copier cette formule :

=SI(ET($A11="paul";$B11>100);VRAI;FAUX)

cliquer sur le bouton Format et mettre les paramètres voulus,
valider avec bouton Appliquer

et ça roule ....... sans VBA
Bonne soirée





--
Cordialement,

Michel Gaboly
www.gaboly.com

Avatar
Michel Gaboly
Si, beaucoup d'effet : cela conduit à tester les cellules situées 10 lignes + bas : une ligne contenant "Pierre" et 28
sera en gras si 10 lignes en-dessous, il y a Paul et une valeur > 100.

Tandis qu'une ligne avec Paul et 150 restera en maigre si 10 lignes en-de ssous, les conditions requises ne sont pas
également remplies.


Re,
petite erreur de trznscription ( mais qui ne devrait pas avoir trop
d'effet),
remplacer le 11 par 1




--
Cordialement,

Michel Gaboly
www.gaboly.com

Avatar
Pounet95
Bonsoir,
.. et pourtant ça serait génial si on pouvait se refaire quand c'est raté ou
imparfait.
Mais alors, plus de piment à la vie ????

Quand j'ai vu ta réponse, je commçais à envoyer le rectificatif pour le 11 à
remplacer en 1
et là un p'tit coup d'escape puisque l'explication ( bonne et complète )
était arrivée.

Bonne soirée

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Michel Gaboly" a écrit dans le message de news:
%
Bonsoir Pounet,

D'accord avec toi, je viens d'envoyer un message disant à peu près la même
chose (en + détaillé, on ne se refait pas ;-)).

Toutefois, si tu ne précises pas que ta formule n'est valable que si la
cellule active est en ligne 11, il va avoir des
surprises ;-((


D'autre part, point de détail, VRAI et FAUX sont totalement superflus :

Dans la formule =ET($A11="paul";$B11>100), l'expression est évaluée, ce qui
a aboutit à un booléen.

Le fait de rajouter un SI() conduit à une seconde évaluation, qui laisse le
résultat invariant, c'est donc redondant.


Bonsoir,
Autre proposition :

Avec une MEFC ( mise en forme conditionnelle )
Sélectionner les lignes sur lesquelles le format sera appliqué,
ensuite menu Format/Mise en forme conditionnelle
en condition 1, choisir la formule est
dans la zone de siaise de la formule, copier cette formule :

=SI(ET($A11="paul";$B11>100);VRAI;FAUX)

cliquer sur le bouton Format et mettre les paramètres voulus,
valider avec bouton Appliquer

et ça roule ....... sans VBA
Bonne soirée





--
Cordialement,

Michel Gaboly
www.gaboly.com

Avatar
Pounet95
visiblement le p'tit coup d'escape n'a pas fonctionné :o(((
outlook est plus rapide que moi !

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Michel Gaboly" a écrit dans le message de news:
%
Si, beaucoup d'effet : cela conduit à tester les cellules situées 10 lignes
+ bas : une ligne contenant "Pierre" et 28
sera en gras si 10 lignes en-dessous, il y a Paul et une valeur > 100.

Tandis qu'une ligne avec Paul et 150 restera en maigre si 10 lignes
en-dessous, les conditions requises ne sont pas
également remplies.


Re,
petite erreur de trznscription ( mais qui ne devrait pas avoir trop
d'effet),
remplacer le 11 par 1




--
Cordialement,

Michel Gaboly
www.gaboly.com

Avatar
sylvain
merci beaucoup pour toutes vos reponses
je vais maintenant esseyer les 2 facons d'y arriver
la mise en forme conditionnelle ainsi que le vba pour y parvenir et
sutout apprendre
1 2