XL 2016 VBA If application

Pexcel · 3 Octobre 2018

Bonjour j'ai un code qui recherche dans une plage les valeurs en doubles grâce à

Code:

   Dim Plage As Range
    Dim Cel As Range

   

   

    With Worksheets("fruits")

    
       Set Plage = .Range(.Cells(2, 9), .Cells(.Rows.Count, 9).End(xlUp))

    End With
   
   
   

   For Each Cel In Plage

If Application.CountIf(Plage, Cel.Value) > 1 Then

Comment faire pour qu'il recherche le mot CITRON ? Par exemple...
Il va falloir modifier If Application.CountIf(Plage, Cel.Value) > 1 Then en If ??????(Plage, Cel.Value) = "CITRON" Then

Je bloque merci d'avance.

sousou · 3 Octobre 2018

Bonjour à tous
et pourquoi pas comme cela
Compte=0
for each i in plage
if ucase(i.value)=ucase("Citron") then compte=compte+1
next
Msgbox "Nombre = "& compte

job75 · 3 Octobre 2018

Bonjour Pexcel, sousou,

Un peu plus élaboré :

Code:

Option Compare Text 'la casse est ignorée

Sub Recherche()
Dim col$, sep$, titre$, x$, P As Range, t, i&, n&, mes$
col = "I" 'à adapter
sep = " - " 'à adapter
titre = "Recherche en colonne " & col
x = InputBox("Entrez le texte recherché :", titre)
If x = "" Then Exit Sub
With Sheets("fruits")
    Set P = .Range("A1", .UsedRange).Columns(col)
End With
t = P.Resize(P.Rows.Count + 1) 'tableau, plus rapide, au moins 2 éléments
For i = 2 To UBound(t)
    If t(i, 1) = x Then n = n + 1: mes = mes & sep & i
Next
MsgBox "'" & x & IIf(mes <> "", "' trouvé " & n & " fois en ligne" & IIf(n > 1, "s ", " ") & Mid(mes, Len(sep) + 1), "' pas trouvé..."), , titre
End Sub

A+

Pexcel · 6 Octobre 2018

Merci à tous !!!
j'ai résolu avec:

Code:

If UCase(Cells.Value) = UCase("CITRON") Then

XL 2016 VBA If application

Pexcel

XLDnaute Junior

sousou

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pexcel

XLDnaute Junior

Discussions similaires