njo80
Messages postés9Date d'inscriptiondimanche 13 juin 2004StatutMembreDernière intervention11 décembre 2007
-
23 août 2006 à 11:24
iguypouf
Messages postés45Date d'inscriptionmercredi 27 octobre 2004StatutMembreDernière intervention26 août 2009
-
23 août 2006 à 11:39
Je veux selectionner les valeurs de F2 jusque G.22 et sur chaque valeur de la colonne F je veux tester si la cellule contient ":" par exemple " Insérer une valeur :"
Si le caractéres ":" est présent alors on va vérifier si dans la colonne G ( pour la meme ligne) si il y a le meme caractére ":". On se fou de se qu'il y a d'écrit la seul chose qu'il importe c'est qu'il y est a chaque fois : dans les deux colonnes.
Si ya pas de : dans la colonne F alors yen a pas dans la colonne G.
Merci (c'est pour de la traduction multilingue merci).
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 23 août 2006 à 11:39
Salut,
essai cette procédure :
<small> Coloration syntaxique automatique </small>
Sub Verification()
' *** si la cellule F4 contient :, et pas G4, ces deux cellules seront en rouge
Dim i As Byte
Dim Verif As Long, Verif2 As Long
For i = 2 To 22
Verif = InStr (1, CStr(Cells(i, 6).Value), ":")
If Verif <> 0 Then
Verif2 = InStr(1, CStr(Cells(i, 7).Value), ":")
If Verif2 = 0 Then Range("F" & i & ":G" & i).Select: Selection.Interior.ColorIndex = 3
End If
Next i
End Sub
<small> Coloration syntaxique automatique</small>
@++
<hr size="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--