J'utilise le code suivant mais rien n'apparait dans ma variable moa.
Est-ce possible de faire fonctionner le find avec une variable? Merci
pour votre aide.
Benjamin
Le code:
For Each c In Range("X1:X2909")
If c.Value =3D "appli" Then
appli =3D c.Offset(0, -5).Value
moa =3D Sheets("Liste d=E9taill=E9e").Find(appli,
Lookat:=3DxlWhole).Offset(0, 3)
J'utilise le code suivant mais rien n'apparait dans ma variable moa. Est-ce possible de faire fonctionner le find avec une variable? Merci pour votre aide.
Benjamin
Le code:
For Each c In Range("X1:X2909") If c.Value = "appli" Then appli = c.Offset(0, -5).Value moa = Sheets("Liste détaillée").Find(appli, Lookat:=xlWhole).Offset(0, 3)
<remige_paralogique@noos.fr> a écrit dans le message de news:
1160984678.864983.223090@b28g2000cwb.googlegroups.com...
Bonjour à tous,
J'utilise le code suivant mais rien n'apparait dans ma variable moa.
Est-ce possible de faire fonctionner le find avec une variable? Merci
pour votre aide.
Benjamin
Le code:
For Each c In Range("X1:X2909")
If c.Value = "appli" Then
appli = c.Offset(0, -5).Value
moa = Sheets("Liste détaillée").Find(appli,
Lookat:=xlWhole).Offset(0, 3)
J'utilise le code suivant mais rien n'apparait dans ma variable moa. Est-ce possible de faire fonctionner le find avec une variable? Merci pour votre aide.
Benjamin
Le code:
For Each c In Range("X1:X2909") If c.Value = "appli" Then appli = c.Offset(0, -5).Value moa = Sheets("Liste détaillée").Find(appli, Lookat:=xlWhole).Offset(0, 3)
remige_paralogique
Merci Youky pour ton post. Malheureusement, cela ne change rien à mon problème. J'ai toujours l'erreur 91 qui s'affiche.
J'utilise le code suivant mais rien n'apparait dans ma variable moa. Est-ce possible de faire fonctionner le find avec une variable? Merci pour votre aide.
Benjamin
Le code:
For Each c In Range("X1:X2909") If c.Value = "appli" Then appli = c.Offset(0, -5).Value moa = Sheets("Liste détaillée").Find(appli, Lookat:=xlWhole).Offset(0, 3)
Merci Youky pour ton post. Malheureusement, cela ne change rien à mon
problème. J'ai toujours l'erreur 91 qui s'affiche.
<remige_paralogique@noos.fr> a écrit dans le message de news:
1160984678.864983.223090@b28g2000cwb.googlegroups.com...
Bonjour à tous,
J'utilise le code suivant mais rien n'apparait dans ma variable moa.
Est-ce possible de faire fonctionner le find avec une variable? Merci
pour votre aide.
Benjamin
Le code:
For Each c In Range("X1:X2909")
If c.Value = "appli" Then
appli = c.Offset(0, -5).Value
moa = Sheets("Liste détaillée").Find(appli,
Lookat:=xlWhole).Offset(0, 3)
J'utilise le code suivant mais rien n'apparait dans ma variable moa. Est-ce possible de faire fonctionner le find avec une variable? Merci pour votre aide.
Benjamin
Le code:
For Each c In Range("X1:X2909") If c.Value = "appli" Then appli = c.Offset(0, -5).Value moa = Sheets("Liste détaillée").Find(appli, Lookat:=xlWhole).Offset(0, 3)
Michel Pierron
Essaie comme ceci:
Dim Rng As Range For Each c In Range("X1:X2909") If c.Value = "appli" Then appli = c.Offset(0, -5).Value Set Rng = Sheets("Liste détaillée").Cells.Find(appli, Lookat:=xlWhole) If Not Rng Is Nothing Then moa = Rng.Offset(0, 3).Value Set Rng = Nothing End If
MP
a écrit dans le message de news:
Bonjour à tous,
J'utilise le code suivant mais rien n'apparait dans ma variable moa. Est-ce possible de faire fonctionner le find avec une variable? Merci pour votre aide.
Benjamin
Le code:
For Each c In Range("X1:X2909") If c.Value = "appli" Then appli = c.Offset(0, -5).Value moa = Sheets("Liste détaillée").Find(appli, Lookat:=xlWhole).Offset(0, 3)
Essaie comme ceci:
Dim Rng As Range
For Each c In Range("X1:X2909")
If c.Value = "appli" Then
appli = c.Offset(0, -5).Value
Set Rng = Sheets("Liste détaillée").Cells.Find(appli, Lookat:=xlWhole)
If Not Rng Is Nothing Then moa = Rng.Offset(0, 3).Value
Set Rng = Nothing
End If
MP
<remige_paralogique@noos.fr> a écrit dans le message de news:
1160984678.864983.223090@b28g2000cwb.googlegroups.com...
Bonjour à tous,
J'utilise le code suivant mais rien n'apparait dans ma variable moa.
Est-ce possible de faire fonctionner le find avec une variable? Merci
pour votre aide.
Benjamin
Le code:
For Each c In Range("X1:X2909")
If c.Value = "appli" Then
appli = c.Offset(0, -5).Value
moa = Sheets("Liste détaillée").Find(appli,
Lookat:=xlWhole).Offset(0, 3)
Dim Rng As Range For Each c In Range("X1:X2909") If c.Value = "appli" Then appli = c.Offset(0, -5).Value Set Rng = Sheets("Liste détaillée").Cells.Find(appli, Lookat:=xlWhole) If Not Rng Is Nothing Then moa = Rng.Offset(0, 3).Value Set Rng = Nothing End If
MP
a écrit dans le message de news:
Bonjour à tous,
J'utilise le code suivant mais rien n'apparait dans ma variable moa. Est-ce possible de faire fonctionner le find avec une variable? Merci pour votre aide.
Benjamin
Le code:
For Each c In Range("X1:X2909") If c.Value = "appli" Then appli = c.Offset(0, -5).Value moa = Sheets("Liste détaillée").Find(appli, Lookat:=xlWhole).Offset(0, 3)
remige_paralogique
Michel, j'ai essayé ton code mais rien n'y fait: ma variable moa ne prend aucune valeur, tout comme Rng. Merci quand même pour ton aide: je n'ai plus d'erreur d'afficher maintenant.... C
Voici mon code en entier:
Sub moaappli()
Dim Rng As Range
'Pour chaque ligne qui a une appli de renseignée dans mon fichier 2.xls ouvert. For Each c In Range("X1:X2909") If c.Value = "appli" Then
'on récupère le nom de l'appli en question dans le fihcier 2 appli = c.Offset(0, -5).Value
'On ouvre la table de correspondance dans le fichier 1 pour prendre une valeur présente sur le même ligne qu'une appli donnée. Workbooks.Open Filename:="fichier1.xls"
'On va chercher la MOA qui correspond à l'appli en question
Set Rng = ActiveCell.Find(appli, Lookat:=xlWhole) If Not Rng Is Nothing Then moa = Rng.Offset(0, 3).Value Set Rng = Nothing
ActiveWindow.Close SaveChanges:úlse
End If
Next c
End Sub
Merci pour votre aide.
Benjamin
Essaie comme ceci:
Dim Rng As Range For Each c In Range("X1:X2909") If c.Value = "appli" Then appli = c.Offset(0, -5).Value Set Rng = Sheets("Liste détaillée").Cells.Find(appli, Lookat: =xlWhole) If Not Rng Is Nothing Then moa = Rng.Offset(0, 3).Value Set Rng = Nothing End If
MP
a écrit dans le message de news:
Bonjour à tous,
J'utilise le code suivant mais rien n'apparait dans ma variable moa. Est-ce possible de faire fonctionner le find avec une variable? Merci pour votre aide.
Benjamin
Le code:
For Each c In Range("X1:X2909") If c.Value = "appli" Then appli = c.Offset(0, -5).Value moa = Sheets("Liste détaillée").Find(appli, Lookat:=xlWhole).Offset(0, 3)
Michel, j'ai essayé ton code mais rien n'y fait: ma variable moa ne
prend aucune valeur, tout comme Rng. Merci quand même pour ton aide:
je n'ai plus d'erreur d'afficher maintenant.... C
Voici mon code en entier:
Sub moaappli()
Dim Rng As Range
'Pour chaque ligne qui a une appli de renseignée dans mon fichier
2.xls ouvert.
For Each c In Range("X1:X2909")
If c.Value = "appli" Then
'on récupère le nom de l'appli en question dans le fihcier 2
appli = c.Offset(0, -5).Value
'On ouvre la table de correspondance dans le fichier 1 pour prendre une
valeur présente sur le même ligne qu'une appli donnée.
Workbooks.Open Filename:="fichier1.xls"
'On va chercher la MOA qui correspond à l'appli en question
Set Rng = ActiveCell.Find(appli, Lookat:=xlWhole)
If Not Rng Is Nothing Then moa = Rng.Offset(0, 3).Value
Set Rng = Nothing
ActiveWindow.Close SaveChanges:=False
End If
Next c
End Sub
Merci pour votre aide.
Benjamin
Essaie comme ceci:
Dim Rng As Range
For Each c In Range("X1:X2909")
If c.Value = "appli" Then
appli = c.Offset(0, -5).Value
Set Rng = Sheets("Liste détaillée").Cells.Find(appli, Lookat: =xlWhole)
If Not Rng Is Nothing Then moa = Rng.Offset(0, 3).Value
Set Rng = Nothing
End If
MP
<remige_paralogique@noos.fr> a écrit dans le message de news:
1160984678.864983.223090@b28g2000cwb.googlegroups.com...
Bonjour à tous,
J'utilise le code suivant mais rien n'apparait dans ma variable moa.
Est-ce possible de faire fonctionner le find avec une variable? Merci
pour votre aide.
Benjamin
Le code:
For Each c In Range("X1:X2909")
If c.Value = "appli" Then
appli = c.Offset(0, -5).Value
moa = Sheets("Liste détaillée").Find(appli,
Lookat:=xlWhole).Offset(0, 3)
Michel, j'ai essayé ton code mais rien n'y fait: ma variable moa ne prend aucune valeur, tout comme Rng. Merci quand même pour ton aide: je n'ai plus d'erreur d'afficher maintenant.... C
Voici mon code en entier:
Sub moaappli()
Dim Rng As Range
'Pour chaque ligne qui a une appli de renseignée dans mon fichier 2.xls ouvert. For Each c In Range("X1:X2909") If c.Value = "appli" Then
'on récupère le nom de l'appli en question dans le fihcier 2 appli = c.Offset(0, -5).Value
'On ouvre la table de correspondance dans le fichier 1 pour prendre une valeur présente sur le même ligne qu'une appli donnée. Workbooks.Open Filename:="fichier1.xls"
'On va chercher la MOA qui correspond à l'appli en question
Set Rng = ActiveCell.Find(appli, Lookat:=xlWhole) If Not Rng Is Nothing Then moa = Rng.Offset(0, 3).Value Set Rng = Nothing
ActiveWindow.Close SaveChanges:úlse
End If
Next c
End Sub
Merci pour votre aide.
Benjamin
Essaie comme ceci:
Dim Rng As Range For Each c In Range("X1:X2909") If c.Value = "appli" Then appli = c.Offset(0, -5).Value Set Rng = Sheets("Liste détaillée").Cells.Find(appli, Lookat: =xlWhole) If Not Rng Is Nothing Then moa = Rng.Offset(0, 3).Value Set Rng = Nothing End If
MP
a écrit dans le message de news:
Bonjour à tous,
J'utilise le code suivant mais rien n'apparait dans ma variable moa. Est-ce possible de faire fonctionner le find avec une variable? Merci pour votre aide.
Benjamin
Le code:
For Each c In Range("X1:X2909") If c.Value = "appli" Then appli = c.Offset(0, -5).Value moa = Sheets("Liste détaillée").Find(appli, Lookat:=xlWhole).Offset(0, 3)
remige_paralogique
En fait, c'est bon, merci. J'ai oublié d'activer la feuille dans laquelle j'effectuais ma recherche.
Michel, j'ai essayé ton code mais rien n'y fait: ma variable moa ne prend aucune valeur, tout comme Rng. Merci quand même pour ton aide: je n'ai plus d'erreur d'afficher maintenant.... C
Voici mon code en entier:
Sub moaappli()
Dim Rng As Range
'Pour chaque ligne qui a une appli de renseignée dans mon fichier 2.xls ouvert. For Each c In Range("X1:X2909") If c.Value = "appli" Then
'on récupère le nom de l'appli en question dans le fihcier 2 appli = c.Offset(0, -5).Value
'On ouvre la table de correspondance dans le fichier 1 pour prendre une valeur présente sur le même ligne qu'une appli donnée. Workbooks.Open Filename:="fichier1.xls"
'On va chercher la MOA qui correspond à l'appli en question
Set Rng = ActiveCell.Find(appli, Lookat:=xlWhole) If Not Rng Is Nothing Then moa = Rng.Offset(0, 3).Value Set Rng = Nothing
ActiveWindow.Close SaveChanges:úlse
End If
Next c
End Sub
Merci pour votre aide.
Benjamin
Essaie comme ceci:
Dim Rng As Range For Each c In Range("X1:X2909") If c.Value = "appli" Then appli = c.Offset(0, -5).Value Set Rng = Sheets("Liste détaillée").Cells.Find(appli, Lookat :=xlWhole) If Not Rng Is Nothing Then moa = Rng.Offset(0, 3).Value Set Rng = Nothing End If
MP
a écrit dans le message de news:
Bonjour à tous,
J'utilise le code suivant mais rien n'apparait dans ma variable moa. Est-ce possible de faire fonctionner le find avec une variable? Merci pour votre aide.
Benjamin
Le code:
For Each c In Range("X1:X2909") If c.Value = "appli" Then appli = c.Offset(0, -5).Value moa = Sheets("Liste détaillée").Find(appli, Lookat:=xlWhole).Offset(0, 3)
En fait, c'est bon, merci.
J'ai oublié d'activer la feuille dans laquelle j'effectuais ma
recherche.
Michel, j'ai essayé ton code mais rien n'y fait: ma variable moa ne
prend aucune valeur, tout comme Rng. Merci quand même pour ton aide:
je n'ai plus d'erreur d'afficher maintenant.... C
Voici mon code en entier:
Sub moaappli()
Dim Rng As Range
'Pour chaque ligne qui a une appli de renseignée dans mon fichier
2.xls ouvert.
For Each c In Range("X1:X2909")
If c.Value = "appli" Then
'on récupère le nom de l'appli en question dans le fihcier 2
appli = c.Offset(0, -5).Value
'On ouvre la table de correspondance dans le fichier 1 pour prendre une
valeur présente sur le même ligne qu'une appli donnée.
Workbooks.Open Filename:="fichier1.xls"
'On va chercher la MOA qui correspond à l'appli en question
Set Rng = ActiveCell.Find(appli, Lookat:=xlWhole)
If Not Rng Is Nothing Then moa = Rng.Offset(0, 3).Value
Set Rng = Nothing
ActiveWindow.Close SaveChanges:=False
End If
Next c
End Sub
Merci pour votre aide.
Benjamin
Essaie comme ceci:
Dim Rng As Range
For Each c In Range("X1:X2909")
If c.Value = "appli" Then
appli = c.Offset(0, -5).Value
Set Rng = Sheets("Liste détaillée").Cells.Find(appli, Lookat :=xlWhole)
If Not Rng Is Nothing Then moa = Rng.Offset(0, 3).Value
Set Rng = Nothing
End If
MP
<remige_paralogique@noos.fr> a écrit dans le message de news:
1160984678.864983.223090@b28g2000cwb.googlegroups.com...
Bonjour à tous,
J'utilise le code suivant mais rien n'apparait dans ma variable moa.
Est-ce possible de faire fonctionner le find avec une variable? Merci
pour votre aide.
Benjamin
Le code:
For Each c In Range("X1:X2909")
If c.Value = "appli" Then
appli = c.Offset(0, -5).Value
moa = Sheets("Liste détaillée").Find(appli,
Lookat:=xlWhole).Offset(0, 3)
En fait, c'est bon, merci. J'ai oublié d'activer la feuille dans laquelle j'effectuais ma recherche.
Michel, j'ai essayé ton code mais rien n'y fait: ma variable moa ne prend aucune valeur, tout comme Rng. Merci quand même pour ton aide: je n'ai plus d'erreur d'afficher maintenant.... C
Voici mon code en entier:
Sub moaappli()
Dim Rng As Range
'Pour chaque ligne qui a une appli de renseignée dans mon fichier 2.xls ouvert. For Each c In Range("X1:X2909") If c.Value = "appli" Then
'on récupère le nom de l'appli en question dans le fihcier 2 appli = c.Offset(0, -5).Value
'On ouvre la table de correspondance dans le fichier 1 pour prendre une valeur présente sur le même ligne qu'une appli donnée. Workbooks.Open Filename:="fichier1.xls"
'On va chercher la MOA qui correspond à l'appli en question
Set Rng = ActiveCell.Find(appli, Lookat:=xlWhole) If Not Rng Is Nothing Then moa = Rng.Offset(0, 3).Value Set Rng = Nothing
ActiveWindow.Close SaveChanges:úlse
End If
Next c
End Sub
Merci pour votre aide.
Benjamin
Essaie comme ceci:
Dim Rng As Range For Each c In Range("X1:X2909") If c.Value = "appli" Then appli = c.Offset(0, -5).Value Set Rng = Sheets("Liste détaillée").Cells.Find(appli, Lookat :=xlWhole) If Not Rng Is Nothing Then moa = Rng.Offset(0, 3).Value Set Rng = Nothing End If
MP
a écrit dans le message de news:
Bonjour à tous,
J'utilise le code suivant mais rien n'apparait dans ma variable moa. Est-ce possible de faire fonctionner le find avec une variable? Merci pour votre aide.
Benjamin
Le code:
For Each c In Range("X1:X2909") If c.Value = "appli" Then appli = c.Offset(0, -5).Value moa = Sheets("Liste détaillée").Find(appli, Lookat:=xlWhole).Offset(0, 3)