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.
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.
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 -
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 -
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 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.
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.
On 1 août, 13:26, FFO 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éciserOn 1 août, 13:26, FFO 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 -
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 -
Rebonjour à toi
Ta macro chez moi fonctionne sans erreur
Sur quelle ligne s'arrete t'elle chez toi ???
Merci de préciserOn 1 août, 13:26, FFO 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 wrote:Rebonjour à toi
Ta macro chez moi fonctionne sans erreur
Sur quelle ligne s'arrete t'elle chez toi ???
Merci de préciserOn 1 août, 13:26, FFO 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
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
On 1 août, 14:26, FFO wrote:Rebonjour à toi
Ta macro chez moi fonctionne sans erreur
Sur quelle ligne s'arrete t'elle chez toi ???
Merci de préciserOn 1 août, 13:26, FFO 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 wrote:Rebonjour à toi
Ta macro chez moi fonctionne sans erreur
Sur quelle ligne s'arrete t'elle chez toi ???
Merci de préciserOn 1 août, 13:26, FFO 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 -
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 -
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 wrote:Rebonjour à toi
Ta macro chez moi fonctionne sans erreur
Sur quelle ligne s'arrete t'elle chez toi ???
Merci de préciserOn 1 août, 13:26, FFO 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 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 wrote:Rebonjour à toi
Ta macro chez moi fonctionne sans erreur
Sur quelle ligne s'arrete t'elle chez toi ???
Merci de préciserOn 1 août, 13:26, FFO 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")..
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")..
On 1 août, 15:26, FFO 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 wrote:Rebonjour à toi
Ta macro chez moi fonctionne sans erreur
Sur quelle ligne s'arrete t'elle chez toi ???
Merci de préciserOn 1 août, 13:26, FFO 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 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 wrote:Rebonjour à toi
Ta macro chez moi fonctionne sans erreur
Sur quelle ligne s'arrete t'elle chez toi ???
Merci de préciserOn 1 août, 13:26, FFO 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 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 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 wrote:Rebonjour à toi
Ta macro chez moi fonctionne sans erreur
Sur quelle ligne s'arrete t'elle chez toi ???
Merci de préciserOn 1 août, 13:26, FFO 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 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 wrote:Rebonjour à toi
Ta macro chez moi fonctionne sans erreur
Sur quelle ligne s'arrete t'elle chez toi ???
Merci de préciserOn 1 août, 13:26, FFO 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 -
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 -
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 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 wrote:Rebonjour à toi
Ta macro chez moi fonctionne sans erreur
Sur quelle ligne s'arrete t'elle chez toi ???
Merci de préciserOn 1 août, 13:26, FFO 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 ???
Même si jps a parfois l'âme Slave qui se déchaîne....
JPS Slave ???
Même si jps a parfois l'âme Slave qui se déchaîne....
JPS Slave ???