2 Questions: MFC et Test sur Colonnes

Temjeh

XLDnaute Accro
Supporter XLD
Bonjour à tous et merci d'Avance

Je cherche à savoir si possible de faire un test sur ligne de col G à AZ

Mise en forme contionnelle:

Si il y a 3 cells vide de suite (col G à AZ) sur la même ligne en B&ligne(Rouge)

EX:

Sur ligne 1 met b1 en rouge si il voit K1, L1 , M1 vide (Trois de suite)
Sur ligne 1 met b1 en rouge si il voit Y1, Z1 , AA1 vide(Trois de suite)

Maintenant sans abusé ...test sur colonne:

Y a-t-il un code simple en vba pour dire: (je pense que je peut le faire avec 3 boucles)

Si il y a la même valeur de cell sur toute la colonne sur 150(J'ai déjà une variable pour nbligne mais pour l'exemple 150) lignes(autre que vide) remplace toutes ces valeurs par la date du jour (Statique) et exit sub sinon test la col suivante (col G à AZ aussi) .

Merci pour vos idée

Temjeh
 
Dernière édition:

Temjeh

XLDnaute Accro
Supporter XLD
Re : 2 Questions: MFC et Test sur Colonnes

Merci beaucoup c'est très bon

Si tu pourrais me bouclé sur au moins 500 car il test la ligne 10 seulement et je cherche le test sur au moins 500 lignes (B1 ...rouge si 3 de sa ligne)(B2 ...rouge si 3 de sa ligne)

Merci je l'ai bouclé sur 500 ligne:
Code:
[/php]
 Dim lgLig As Long
    Dim lgCol As Long, lgColDeb As Long, lgColFin As Long
    Dim intCellVide As Integer
    Dim i as Long

    For i = 1 To 500
 
    lgLig = i
    lgColDeb = 7
    lgColFin = 53
    intCellVide = 0
    
    For lgCol = lgColDeb To lgColFin - 3
        If Cells(lgLig, lgCol).Value = vbNullString Then
            intCellVide = intCellVide + 1
            If Cells(lgLig, lgCol + 1).Value = vbNullString And Cells(lgLig, lgCol + 2).Value = vbNullString Then
                Range("B" & i).Interior.ColorIndex = 3
                GoTo Fin
          
            End If
        End If
    Next lgCol

Fin:

Next i
A+

Bravo!
Temjeh
 
Dernière édition:

ODVJ

XLDnaute Impliqué
Re : 2 Questions: MFC et Test sur Colonnes

Bonjour à tous,

une MFC pour la partie 3 cellules horizontales consécutives vides :
en B10=(NBVAL($G10:$AZ10)>0)*(SOMMEPROD(($G10:$AX10="")*($H10:$AY10="")*($I10:$AZ10=""))>0)

cordialement
 

Temjeh

XLDnaute Accro
Supporter XLD
Re : 2 Questions: MFC et Test sur Colonnes

Merci lacorse33 j'ai les 2 facons ...beau travail!
Merci beaucoup ODJV

En formule c'est vrai que c'est moins de trouble mais j'ai essayé de toutes les facons elle ne fonctionne pas

Peut-tu me joindre un exemple

Merci infiniement

Temjeh
 
Dernière édition:

ODVJ

XLDnaute Impliqué
Re : 2 Questions: MFC et Test sur Colonnes

Bonsoir,

c'est parce qu'il y a un espace à supprimer dans la formule.
je ne sais trop pourquoi mais XLD rajoute des espaces.

c'est d'autant plus dérangeant que là, l'espace s'est niché entre 2 guillemets.

A+
 

Temjeh

XLDnaute Accro
Supporter XLD
Re : 2 Questions: MFC et Test sur Colonnes

Merci beaucoup à tous aussi

C'est la perfection!!!

C'est vrai moi aussi l'autre fois j'ai répond à quelqu'un et il m'avait ajouté une espace entre deux parenthèses


A+

Il me reste à faire mon autre boucle qui devrait être assez simple


Temjeh

Le ptit singe est content!
 

Temjeh

XLDnaute Accro
Supporter XLD
Re : 2 Questions: MFC et Test sur Colonnes

La 2ème partie du message 1er

Si il y a la même valeur de cell sur toute la colonne sur 150(J'ai déjà une variable pour nbligne mais pour l'exemple 150) lignes(autre que vide) remplace toutes ces valeurs par la date du jour (Statique) et exit sub sinon test la col suivante (col G à AZ aussi) .


Temjeh

Merci
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG