J'ai deja posé la question sur une conversation mais je trouve ca interressant d'n faire un sujet.
Ceci pourrai mettre fortement utilie.
Voila j'ai un tableau où je voudrais qu'il y est un message qui s'affiche (Msgbox) qui m'indique, à l'ouverture de ma classeur, le nombre de cellule de la colonne G (a partir de la 3eme ligne à la 3000eme) qui rempli les condition suivante:
si(et(G<>F;G<>"")
Voila. Je vous remercie par avance sur vos réponses, que je sais toujours bonnes
Option Explicit
Private Sub Workbook_Open()
Dim i As Long, compteur As Double
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
Sheets("Feuil1").Activate ' nom onglet adapter
compteur = 0
For i = Cells(Rows.Count, "f").End(xlUp).Row To 3 Step -1
If Range("f" & i) <> Range("g" & i) And Range("g" & i) <> "" Then compteur = compteur + 1
Next i
MsgBox compteur
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub
Sub Oups()
Dim R As Range, n As Long
Set R = Range("H3:H" & [A6500].End(xlUp).Row): R.FormulaLocal = "=(F3=G3)+(G3<>0)"
n = Application.CountIf(R, 1)
MsgBox "Vous avez " & n & " faute" & IIf(n < 2, "", "s"), , "": R.Clear
End Sub
surtout pour le plaisir de croiser mes chers collègues
et sans "s" superflus
Code:
Sub Oups()
Dim R As Range, n As Long
Set R = Range("H3:H" & [A6500].End(xlUp).Row): R.FormulaLocal = "=(F3=G3)+(G3<>0)"
n = Application.CountIf(R, 1)
MsgBox "Vous avez " & n & " faute" & IIf(n < 2, "", "s"), , "": R.Clear
End Sub