Recherche de cellule ont une partie du texte est un mot precis

vgendron

XLDnaute Barbatruc

• 19 Août 2014

• #2

Re : Recherche de cellule ont une partie du texte est un mot precis

Bonjour,

pourquoi pas avec une formule?
=SI(NON(ESTERREUR(TROUVE("VIBRATOR";B8)));C8&"-NPA";"")

pourquoi parles tu de fichiers "Vibrators"?
on est censé en avoir besoin?

 

Vote positif 0 Vote négatif

G

Gaby71

XLDnaute Junior

• 19 Août 2014

• #3

Re : Recherche de cellule ont une partie du texte est un mot precis

Merci
Ceci est la suite d'une macro qui a créé ce fichier et je dois rechercher les cellules qui contiennent " VIBRATOR " et ajouter un suffixe au numero correspondant
Je voulais dire terme " VIBRATOR " et non pas fichiers

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 19 Août 2014

• #4

Re : Recherche de cellule ont une partie du texte est un mot precis

ah ok,
et bien donc. pourquoi pas faire un truc du genre (en vba donc)

Code:

Sub ajoutNPA()
'ces valeurs seront à determiner automatiquement?
début = 8
fin = 63


For i = début To fin Step 1
    
    
    If InStr(1, Cells(i, 2), "VIBRATOR") <> 0 Then
        Cells(i, 3) = Cells(i, 3) & "-NPA"
    End If
Next i
End Sub

 

Vote positif 0 Vote négatif

G

Gaby71

XLDnaute Junior

• 20 Août 2014

• #5

Re : Recherche de cellule ont une partie du texte est un mot precis

Merci vgendron pour ton aide
je bloque aussi pour determiner où se situe la derniere ligne comme il y a des lignes vierges entre les paragraphes
je sais faire en navigant avec offset(1;0) mais il a sûrement un cde plus pur

Merci d'avance

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 20 Août 2014

• #6

Re : Recherche de cellule ont une partie du texte est un mot precis

Salut,

effectivement.. il suffit de commencer par le bas en remontant

Fin=cells(65536,3).end(xlup).row

Pourquoi 65536 ? parce qu'avec Excel 2003, c'est le nb max de lignes dans une feuille..
pour 2007.. je ne sais pas, mais j'ai gardé l'habitude de cette valeur. sachant qu'il y a peu de chance qu'un jour je créé un fichier aussi long..

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Août 2014

• #7

Re : Recherche de cellule ont une partie du texte est un mot precis

Bonjour Gaby71, salut vgendron,

Code:

Option Compare Text 'facultatif, si l'on veut ignorer la casse

Sub NPA()
Dim t, i&
With Feuil1 'CodeName de la feuille, à adapter
  With Intersect(.UsedRange.EntireRow, .[B:C])
    .Columns(2).Replace "-NPA", "", xlPart 'RAZ
    t = .Cells 'matrice, plus rapide
    For i = 1 To UBound(t)
      If InStr(t(i, 1), "VIBRATOR") Then t(i, 2) = t(i, 2) & "-NPA"
    Next
    .Columns(2) = Application.Index(t, , 2)
  End With
End With
End Sub

A+

 

Vote positif 0 Vote négatif

G

Gaby71

XLDnaute Junior

• 20 Août 2014

• #8

Re : Recherche de cellule ont une partie du texte est un mot precis

Merci pour votre aide

je continue vers de nouveau ecueils

 

Vote positif 0 Vote négatif