recherche de mot clef

Bonjour,

INFORMATION

Description du classeur :
7 feuilles se nommant :
Tableau de bord
Procédure
Modules
BDD
Temp
Filiales
h439



Macro :
Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("B2:B200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
Exit For
End If
Next serveur
'affiche le resultat en colonne S J + 7 colonnes
Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub


Mon problème :
Dans la feuille "Tableau de bord" de F15 a F300 je dois chercher dans
chaque cellule un mot clef se trouvant dans la feuille "Modules" de B2
à B200 et je dois afficher la cellule correspondant de ma feuille
"Modules" colonne C.

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je trouve
une correspondance dans ma feuille "Modules" en b68 je dois afficher
la cellule c65 en "Tableau de bord" K15.

Salut à toi

J'ai un doute quant à tes propos
Est tu certain de celà :

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je trouve
une correspondance dans ma feuille "Modules" en b68 je dois afficher
la cellule c65 en "Tableau de bord" K15.

n'est ce pas plutôt :

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je trouve
une correspondance dans ma feuille "Modules" en b68 je dois afficher
la cellule c68 en "Tableau de bord" K15.

Dans cet esprit je te propose cette ligne :

Sheets("Tableau de bord").Range("K" & phrase.row) = serveur.offset(0,1)

A inclure aprés la ligne :

Next serveur

Celà te convient-il ???

Bonjour,

INFORMATION

Description du classeur :
7 feuilles se nommant :
Tableau de bord
Procédure
Modules
BDD
Temp
Filiales
h439

Macro :
Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("B2:B200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
Exit For
End If
Next serveur
'affiche le resultat en colonne S J + 7 colonnes
Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub

Mon problème :
Dans la feuille "Tableau de bord" de F15 a F300 je dois chercher dans
chaque cellule un mot clef se trouvant dans la feuille "Modules" de B2
à B200 et je dois afficher la cellule correspondant de ma feuille
"Modules" colonne C.

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je trouve
une correspondance dans ma feuille "Modules" en b68 je dois afficher
la cellule c65 en "Tableau de bord" K15.- Masquer le texte des message s précédents -

- Afficher le texte des messages précédents -

On 1 août, 13:26, FFO <F...@discussions.microsoft.com> wrote:

Salut à toi

J'ai un doute quant à tes propos
Est tu certain de celà :

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je trouve
une correspondance dans ma feuille "Modules" en b68 je dois afficher
la cellule c65 en "Tableau de bord" K15.

n'est ce pas plutôt :

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je trouve
une correspondance dans ma feuille "Modules" en b68 je dois afficher
la cellule c68 en "Tableau de bord" K15.

Dans cet esprit je te propose cette ligne :

Sheets("Tableau de bord").Range("K" & phrase.row) = serveur.offset(0,1)

A inclure aprés la ligne :

Next serveur

Celà te convient-il ???

Bonjour,

INFORMATION

Description du classeur :
7 feuilles se nommant :
Tableau de bord
Procédure
Modules
BDD
Temp
Filiales
h439

Macro :
Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("B2:B200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
Exit For
End If
Next serveur
'affiche le resultat en colonne S J + 7 colonnes
Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub

Mon problème :
Dans la feuille "Tableau de bord" de F15 a F300 je dois chercher dans
chaque cellule un mot clef se trouvant dans la feuille "Modules" de B2
à B200 et je dois afficher la cellule correspondant de ma feuille
"Modules" colonne C.

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je trouve
une correspondance dans ma feuille "Modules" en b68 je dois afficher
la cellule c65 en "Tableau de bord" K15.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Oui pardon c exactement cela mais lorsque je lance la macro j'obtiens
une erreur de type :
"erreur d'execution91
variable object ou varaible de bloc with non definie"

mais il m'affiche toujours lememe resuslat pour l'erreur ?? une idée.

Rebonjour à toi

Ta macro chez moi fonctionne sans erreur

Sur quelle ligne s'arrete t'elle chez toi ???

Merci de préciser

On 1 août, 13:26, FFO <F...@discussions.microsoft.com> wrote:

Salut à toi

J'ai un doute quant à tes propos
Est tu certain de celà :

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je trouve
une correspondance dans ma feuille "Modules" en b68 je dois afficher
la cellule c65 en "Tableau de bord" K15.

n'est ce pas plutôt :

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je trouve
une correspondance dans ma feuille "Modules" en b68 je dois afficher
la cellule c68 en "Tableau de bord" K15.

Dans cet esprit je te propose cette ligne :

Sheets("Tableau de bord").Range("K" & phrase.row) = serveur.offset( 0,1)

A inclure aprés la ligne :

Next serveur

Celà te convient-il ???

Bonjour,

INFORMATION

Description du classeur :
7 feuilles se nommant :
Tableau de bord
Procédure
Modules
BDD
Temp
Filiales
h439

Macro :
Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("B2:B200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
Exit For
End If
Next serveur
'affiche le resultat en colonne S J + 7 colonnes
Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub

Mon problème :
Dans la feuille "Tableau de bord" de F15 a F300 je dois chercher d ans
chaque cellule un mot clef se trouvant dans la feuille "Modules" de B2
à B200 et je dois afficher la cellule correspondant de ma feuille
"Modules" colonne C.

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je tro uve
une correspondance dans ma feuille "Modules" en b68 je dois afficher
la cellule c65 en "Tableau de bord" K15.- Masquer le texte des mes sages précédents -

- Afficher le texte des messages précédents -

Oui pardon c exactement cela mais lorsque je lance la macro j'obtiens
une erreur de type :
"erreur d'execution91
variable object ou varaible de bloc with non definie"

mais il m'affiche toujours lememe resuslat pour l'erreur ?? une idée. - Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

On 1 août, 14:26, FFO <F...@discussions.microsoft.com> wrote:

Rebonjour à toi

Ta macro chez moi fonctionne sans erreur

Sur quelle ligne s'arrete t'elle chez toi ???

Merci de préciser

On 1 août, 13:26, FFO <F...@discussions.microsoft.com> wrote:

Salut à toi

J'ai un doute quant à tes propos
Est tu certain de celà :

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je trouve
une correspondance dans ma feuille "Modules" en b68 je dois afficher
la cellule c65 en "Tableau de bord" K15.

n'est ce pas plutôt :

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je trouve
une correspondance dans ma feuille "Modules" en b68 je dois afficher
la cellule c68 en "Tableau de bord" K15.

Dans cet esprit je te propose cette ligne :

Sheets("Tableau de bord").Range("K" & phrase.row) = serveur.offset(0,1)

A inclure aprés la ligne :

Next serveur

Celà te convient-il ???

Bonjour,

INFORMATION

Description du classeur :
7 feuilles se nommant :
Tableau de bord
Procédure
Modules
BDD
Temp
Filiales
h439

Macro :
Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("B2:B200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
Exit For
End If
Next serveur
'affiche le resultat en colonne S J + 7 colonnes
Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub

Mon problème :
Dans la feuille "Tableau de bord" de F15 a F300 je dois chercher dans
chaque cellule un mot clef se trouvant dans la feuille "Modules" de B2
à B200 et je dois afficher la cellule correspondant de ma feuille
"Modules" colonne C.

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je trouve
une correspondance dans ma feuille "Modules" en b68 je dois afficher
la cellule c65 en "Tableau de bord" K15.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Oui pardon c exactement cela mais lorsque je lance la macro j'obtiens
une erreur de type :
"erreur d'execution91
variable object ou varaible de bloc with non definie"

mais il m'affiche toujours lememe resuslat pour l'erreur ?? une idée.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

elle s'arrete sur cette ligne
Sheets("Tableau de bord").Range("K" & phrase.Row) = serveur.offset(0,
1)


voici le code complet
Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("c2:c200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
Exit For
End If
Next serveur
Sheets("Tableau de bord").Range("K" & phrase.Row) = serveur.offset(0,
1)
'affiche le resultat en colonne S J + 7 colonnes
'Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub

Rebonjour à toi

Mets ce code :

Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("c2:c200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
nom2 = serveur. Offset(0, 1)
Exit For
End If
Next serveur
Sheets("Tableau de bord").Range("K" & phrase.Row) = nom2 'affiche le
resultat en colonne S J + 7 colonnes
'Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub

Celà devrait mieux aller

Dis moi !!!

On 1 août, 14:26, FFO <F...@discussions.microsoft.com> wrote:

Rebonjour à toi

Ta macro chez moi fonctionne sans erreur

Sur quelle ligne s'arrete t'elle chez toi ???

Merci de préciser

On 1 août, 13:26, FFO <F...@discussions.microsoft.com> wrote:

Salut à toi

J'ai un doute quant à tes propos
Est tu certain de celà :

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je t rouve
une correspondance dans ma feuille "Modules" en b68 je dois affic her
la cellule c65 en "Tableau de bord" K15.

n'est ce pas plutôt :

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je t rouve
une correspondance dans ma feuille "Modules" en b68 je dois affic her
la cellule c68 en "Tableau de bord" K15.

Dans cet esprit je te propose cette ligne :

Sheets("Tableau de bord").Range("K" & phrase.row) = serveur.off set(0,1)

A inclure aprés la ligne :

Next serveur

Celà te convient-il ???

Bonjour,

INFORMATION

Description du classeur :
7 feuilles se nommant :
Tableau de bord
Procédure
Modules
BDD
Temp
Filiales
h439

Macro :
Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("B2:B200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
Exit For
End If
Next serveur
'affiche le resultat en colonne S J + 7 colonnes
Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub

Mon problème :
Dans la feuille "Tableau de bord" de F15 a F300 je dois cherch er dans
chaque cellule un mot clef se trouvant dans la feuille "Modules " de B2
à B200 et je dois afficher la cellule correspondant de ma feu ille
"Modules" colonne C.

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je trouve
une correspondance dans ma feuille "Modules" en b68 je dois aff icher
la cellule c65 en "Tableau de bord" K15.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Oui pardon c exactement cela mais lorsque je lance la macro j'obtie ns
une erreur de type :
"erreur d'execution91
variable object ou varaible de bloc with non definie"

mais il m'affiche toujours lememe resuslat pour l'erreur ?? une id ée.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

elle s'arrete sur cette ligne
Sheets("Tableau de bord").Range("K" & phrase.Row) = serveur.offset(0,
1)

voici le code complet
Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("c2:c200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
Exit For
End If
Next serveur
Sheets("Tableau de bord").Range("K" & phrase.Row) = serveur.offset(0,
1)
'affiche le resultat en colonne S J + 7 colonnes
'Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

On 1 août, 15:26, FFO <F...@discussions.microsoft.com> wrote:

Rebonjour à toi

Mets ce code :

Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("c2:c200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
nom2 = serveur. Offset(0, 1)
Exit For
End If
Next serveur
Sheets("Tableau de bord").Range("K" & phrase.Row) = nom2 'affiche le
resultat en colonne S J + 7 colonnes
'Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub

Celà devrait mieux aller

Dis moi !!!

On 1 août, 14:26, FFO <F...@discussions.microsoft.com> wrote:

Rebonjour à toi

Ta macro chez moi fonctionne sans erreur

Sur quelle ligne s'arrete t'elle chez toi ???

Merci de préciser

On 1 août, 13:26, FFO <F...@discussions.microsoft.com> wrote:

Salut à toi

J'ai un doute quant à tes propos
Est tu certain de celà :

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je trouve
une correspondance dans ma feuille "Modules" en b68 je dois afficher
la cellule c65 en "Tableau de bord" K15.

n'est ce pas plutôt :

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je trouve
une correspondance dans ma feuille "Modules" en b68 je dois afficher
la cellule c68 en "Tableau de bord" K15.

Dans cet esprit je te propose cette ligne :

Sheets("Tableau de bord").Range("K" & phrase.row) = serveur.offset(0,1)

A inclure aprés la ligne :

Next serveur

Celà te convient-il ???

Bonjour,

INFORMATION

Description du classeur :
7 feuilles se nommant :
Tableau de bord
Procédure
Modules
BDD
Temp
Filiales
h439

Macro :
Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("B2:B200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
Exit For
End If
Next serveur
'affiche le resultat en colonne S J + 7 colonnes
Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub

Mon problème :
Dans la feuille "Tableau de bord" de F15 a F300 je dois chercher dans
chaque cellule un mot clef se trouvant dans la feuille "Modules" de B2
à B200 et je dois afficher la cellule correspondant de ma feuille
"Modules" colonne C.

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je trouve
une correspondance dans ma feuille "Modules" en b68 je dois afficher
la cellule c65 en "Tableau de bord" K15.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Oui pardon c exactement cela mais lorsque je lance la macro j'obtiens
une erreur de type :
"erreur d'execution91
variable object ou varaible de bloc with non definie"

mais il m'affiche toujours lememe resuslat pour l'erreur ?? une idée.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

elle s'arrete sur cette ligne
Sheets("Tableau de bord").Range("K" & phrase.Row) = serveur.offset(0,
1)

voici le code complet
Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("c2:c200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
Exit For
End If
Next serveur
Sheets("Tableau de bord").Range("K" & phrase.Row) = serveur.offset(0,
1)
'affiche le resultat en colonne S J + 7 colonnes
'Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Bonjour,

alors la plus d'erreur mais il ne m'affiche rien en colonn K de la
feuille ("Tableau de bord")..

Rebonjour sleg

Je ne suis vraiment pas dégourdi !!!!!
Méaculpa Méaculpa
J'ai oublié de remettre sur une ligne tes données :

For Each serveur In Sheets("Modules").Range("c2:c200")

il faut mettre :

For Each serveur In Sheets("Modules").Range("B2:B200")

ce qui donne le code :

Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("B2:B200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
nom2 = serveur. Offset(0, 1)
Exit For
End If
Next serveur
Sheets("Tableau de bord").Range("K" & phrase.Row) = nom2 'affiche le
resultat en colonne S J + 7 colonnes
'Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub

Celà devrait là mieux aller j'espère

Mille excuses

Dis moi !!!

On 1 août, 15:26, FFO <F...@discussions.microsoft.com> wrote:

Rebonjour à toi

Mets ce code :

Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("c2:c200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
nom2 = serveur. Offset(0, 1)
Exit For
End If
Next serveur
Sheets("Tableau de bord").Range("K" & phrase.Row) = nom2 'affiche le
resultat en colonne S J + 7 colonnes
'Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub

Celà devrait mieux aller

Dis moi !!!

On 1 août, 14:26, FFO <F...@discussions.microsoft.com> wrote:

Rebonjour à toi

Ta macro chez moi fonctionne sans erreur

Sur quelle ligne s'arrete t'elle chez toi ???

Merci de préciser

On 1 août, 13:26, FFO <F...@discussions.microsoft.com> wrote:

Salut à toi

J'ai un doute quant à tes propos
Est tu certain de celà :

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je trouve
une correspondance dans ma feuille "Modules" en b68 je dois a fficher
la cellule c65 en "Tableau de bord" K15.

n'est ce pas plutôt :

en gros si sur ma feuille"Tableau de bord" en cellule F15 si je trouve
une correspondance dans ma feuille "Modules" en b68 je dois a fficher
la cellule c68 en "Tableau de bord" K15.

Dans cet esprit je te propose cette ligne :

Sheets("Tableau de bord").Range("K" & phrase.row) = serveur .offset(0,1)

A inclure aprés la ligne :

Next serveur

Celà te convient-il ???

Bonjour,

INFORMATION

Description du classeur :
7 feuilles se nommant :
Tableau de bord
Procédure
Modules
BDD
Temp
Filiales
h439

Macro :
Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("B2:B200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
Exit For
End If
Next serveur
'affiche le resultat en colonne S J + 7 colonnes
Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub

Mon problème :
Dans la feuille "Tableau de bord" de F15 a F300 je dois ch ercher dans
chaque cellule un mot clef se trouvant dans la feuille "Mod ules" de B2
à B200 et je dois afficher la cellule correspondant de ma feuille
"Modules" colonne C.

en gros si sur ma feuille"Tableau de bord" en cellule F15 s i je trouve
une correspondance dans ma feuille "Modules" en b68 je dois afficher
la cellule c65 en "Tableau de bord" K15.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Oui pardon c exactement cela mais lorsque je lance la macro j'o btiens
une erreur de type :
"erreur d'execution91
variable object ou varaible de bloc with non definie"

mais il m'affiche toujours lememe resuslat pour l'erreur ?? une idée.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

elle s'arrete sur cette ligne
Sheets("Tableau de bord").Range("K" & phrase.Row) = serveur.offse t(0,
1)

voici le code complet
Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("c2:c200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
Exit For
End If
Next serveur
Sheets("Tableau de bord").Range("K" & phrase.Row) = serveur.offse t(0,
1)
'affiche le resultat en colonne S J + 7 colonnes
'Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Bonjour,

alors la plus d'erreur mais il ne m'affiche rien en colonn K de la
feuille ("Tableau de bord")..- Masquer le texte des messages précéd ents -

- Afficher le texte des messages précédents -

Rebonjour sleg

Je ne suis vraiment pas dégourdi !!!!!
Méaculpa Méaculpa
J'ai oublié de remettre sur une ligne tes données :

For Each serveur In Sheets("Modules").Range("c2:c200")

il faut mettre :

For Each serveur In Sheets("Modules").Range("B2:B200")

ce qui donne le code :

Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("B2:B200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
nom2 = serveur. Offset(0, 1)
Exit For
End If
Next serveur
Sheets("Tableau de bord").Range("K" & phrase.Row) = nom2 'affiche le
resultat en colonne S J + 7 colonnes
'Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub

Celà devrait là mieux aller j'espère

Mille excuses

Dis moi !!!

On 1 août, 15:26, FFO <F...@discussions.microsoft.com> wrote:

Rebonjour à toi

Mets ce code :

Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("c2:c200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
nom2 = serveur. Offset(0, 1)
Exit For
End If
Next serveur
Sheets("Tableau de bord").Range("K" & phrase.Row) = nom2 'affiche le
resultat en colonne S J + 7 colonnes
'Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub

Celà devrait mieux aller

Dis moi !!!

On 1 août, 14:26, FFO <F...@discussions.microsoft.com> wrote:

Rebonjour à toi

Ta macro chez moi fonctionne sans erreur

Sur quelle ligne s'arrete t'elle chez toi ???

Merci de préciser

On 1 août, 13:26, FFO <F...@discussions.microsoft.com> wrote:

Salut à toi

J'ai un doute quant à tes propos
Est tu certain de celà :

en gros si sur ma feuille"Tableau de bord" en cellule F15 si
je trouve
une correspondance dans ma feuille "Modules" en b68 je dois
afficher
la cellule c65 en "Tableau de bord" K15.

n'est ce pas plutôt :

en gros si sur ma feuille"Tableau de bord" en cellule F15 si
je trouve
une correspondance dans ma feuille "Modules" en b68 je dois
afficher
la cellule c68 en "Tableau de bord" K15.

Dans cet esprit je te propose cette ligne :

Sheets("Tableau de bord").Range("K" & phrase.row) =
serveur.offset(0,1)

A inclure aprés la ligne :

Next serveur

Celà te convient-il ???

Bonjour,

INFORMATION

Description du classeur :
7 feuilles se nommant :
Tableau de bord
Procédure
Modules
BDD
Temp
Filiales
h439

Macro :
Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("B2:B200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
Exit For
End If
Next serveur
'affiche le resultat en colonne S J + 7 colonnes
Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub

Mon problème :
Dans la feuille "Tableau de bord" de F15 a F300 je dois
chercher dans
chaque cellule un mot clef se trouvant dans la feuille
"Modules" de B2
à B200 et je dois afficher la cellule correspondant de ma
feuille
"Modules" colonne C.

en gros si sur ma feuille"Tableau de bord" en cellule F15 si
je trouve
une correspondance dans ma feuille "Modules" en b68 je dois
afficher
la cellule c65 en "Tableau de bord" K15.- Masquer le texte
des messages précédents -

- Afficher le texte des messages précédents -

Oui pardon c exactement cela mais lorsque je lance la macro
j'obtiens
une erreur de type :
"erreur d'execution91
variable object ou varaible de bloc with non definie"

mais il m'affiche toujours lememe resuslat pour l'erreur ?? une
idée.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

elle s'arrete sur cette ligne
Sheets("Tableau de bord").Range("K" & phrase.Row) =
serveur.offset(0,
1)

voici le code complet
Sub Recherche_domaine()
Dim serveur As Range, phrase As Range
Dim nom As String
For Each phrase In Range("F15:F300")
nom = ""
'liste des serveur en colonne r
For Each serveur In Sheets("Modules").Range("c2:c200")
If InStr(1, phrase.Value, serveur.Value, 1) > 0 Then
nom = serveur.Value
Exit For
End If
Next serveur
Sheets("Tableau de bord").Range("K" & phrase.Row) =
serveur.offset(0,
1)
'affiche le resultat en colonne S J + 7 colonnes
'Cells(phrase.Row, phrase.Column + 6).Value = nom
Next phrase
End Sub- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Bonjour,

alors la plus d'erreur mais il ne m'affiche rien en colonn K de la
feuille ("Tableau de bord")..- Masquer le texte des messages
précédents -

- Afficher le texte des messages précédents -

Même si jps a parfois l'âme Slave qui se déchaîne....
JPS Slave ???