recherche de mot clef

Le
sleg
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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #4645551
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.




sleg
Le #4645421
On 1 août, 13:26, FFO
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 -




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.


FFO
Le #4645401
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
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.






sleg
Le #4645391
On 1 août, 14:26, FFO
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
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 -


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




FFO
Le #4645321
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
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
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








sleg
Le #4642631
On 1 août, 15:26, FFO
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
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
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 -


Bonjour,

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






FFO
Le #4642481
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
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
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
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")..










sleg
Le #4642431
On 2 août, 09:46, FFO
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
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
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
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 -


Tu n'a pas a t'excusser et la ça marche impec je dois faire le ménage.

grand merci a toi pour ton aide.








Philippe.R
Le #4639401
Bonsoir sleg,
S'il te plait, sois sympa !
Réponds au dessus (même si ce n'est l'usage ailleurs) ; ou bien elague le
message repris. ;o))
Tu nous obliges à jouer de la roulette à tout va et ici, il y a peu de
russes....
Même si jps a parfois l'âme Slave qui se déchaîne....
;o)))
--
Philippe.R
"sleg" news:
On 2 août, 09:46, FFO
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
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
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
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 -


Tu n'a pas a t'excusser et la ça marche impec je dois faire le ménage.

grand merci a toi pour ton aide.








Modeste
Le #4639381
Bonsour® Philippe.R avec ferveur ;o))) vous nous disiez :

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

il se lave, donc se nettoie
c'est donc ton frére !!!

@+
;o)))

Publicité
Poster une réponse
Anonyme