Dim num_client As Variant
Sheets("Clients").Select
num_client = [W1]
Range("B3:B7002").Select
Selection.Find(What:=num_client, After:=ActiveCell, LookIn:=xlFormulas,
LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
True).Activate
Le problème que j'ai est le suivant : Lors de l'exécution de la macro, le
message suivant apparaît :
"Variable objet ou variable de bloc With non définie".
Pourquoi?
Deuxième question : comment faire pour sélectionner le résultat et se
déplacer de x colonnes (sous Excel) afin d'y insérer une formule?
Salut Avant tout, un petit conseil, éviter absolument le "urgent" qui a tendance à retarder les réponses... Sinon, le message "Variable objet ou variable de bloc With non définie" indique que la recherche est infructueuse et donc que XL ne peut pas sélectionner quoique ce soit. Pour pallier le plantage, fais un gestionnaire d'erreur. On Error Goto Fin 'juste avant le find Fin: 'juste avant le End Sub Ensuite, pour la formule : ActiveCell.offset(0, x).FormulaR1C1 = "=IF(RC[-x]=1;1;0" où x est le nombre de colonnes à décaler, la formule étant donné simplement par l'enregistreur de macros... Ouala Reviens pour plus de précision ! ++
V.
-----Message d'origine----- Bonjour,
j'ai le script suivant :
Dim num_client As Variant Sheets("Clients").Select num_client = [W1] Range("B3:B7002").Select Selection.Find(What:=num_client, After:¬tiveCell, LookIn:=xlFormulas,
Le problème que j'ai est le suivant : Lors de l'exécution de la macro, le
message suivant apparaît : "Variable objet ou variable de bloc With non définie". Pourquoi?
Deuxième question : comment faire pour sélectionner le résultat et se
déplacer de x colonnes (sous Excel) afin d'y insérer une formule?
D'avance un grand merci.
.
Salut
Avant tout, un petit conseil, éviter absolument
le "urgent" qui a tendance à retarder les réponses...
Sinon, le message "Variable objet ou variable de bloc With
non définie" indique que la recherche est infructueuse et
donc que XL ne peut pas sélectionner quoique ce soit.
Pour pallier le plantage, fais un gestionnaire d'erreur.
On Error Goto Fin 'juste avant le find
Fin: 'juste avant le End Sub
Ensuite, pour la formule :
ActiveCell.offset(0, x).FormulaR1C1 = "=IF(RC[-x]=1;1;0"
où x est le nombre de colonnes à décaler, la formule étant
donné simplement par l'enregistreur de macros...
Ouala
Reviens pour plus de précision !
++
V.
-----Message d'origine-----
Bonjour,
j'ai le script suivant :
Dim num_client As Variant
Sheets("Clients").Select
num_client = [W1]
Range("B3:B7002").Select
Selection.Find(What:=num_client, After:=ActiveCell,
LookIn:=xlFormulas,
Salut Avant tout, un petit conseil, éviter absolument le "urgent" qui a tendance à retarder les réponses... Sinon, le message "Variable objet ou variable de bloc With non définie" indique que la recherche est infructueuse et donc que XL ne peut pas sélectionner quoique ce soit. Pour pallier le plantage, fais un gestionnaire d'erreur. On Error Goto Fin 'juste avant le find Fin: 'juste avant le End Sub Ensuite, pour la formule : ActiveCell.offset(0, x).FormulaR1C1 = "=IF(RC[-x]=1;1;0" où x est le nombre de colonnes à décaler, la formule étant donné simplement par l'enregistreur de macros... Ouala Reviens pour plus de précision ! ++
V.
-----Message d'origine----- Bonjour,
j'ai le script suivant :
Dim num_client As Variant Sheets("Clients").Select num_client = [W1] Range("B3:B7002").Select Selection.Find(What:=num_client, After:¬tiveCell, LookIn:=xlFormulas,
Le problème que j'ai est le suivant : Lors de l'exécution de la macro, le
message suivant apparaît : "Variable objet ou variable de bloc With non définie". Pourquoi?
Deuxième question : comment faire pour sélectionner le résultat et se
déplacer de x colonnes (sous Excel) afin d'y insérer une formule?
D'avance un grand merci.
.
Daniel.M
Bonjour,
Sub JeCherche() Dim OuEstIl As Variant With Sheets("Clients") OuEstIl = Application.Match(.Range("W1"), .Range("B3:B7002"), 0) If IsError(OuEstIl) Then ' pas trouvé Else MsgBox Application.Index(.Range("B3:B7002"), OuEstIl) & " " & OuEstIl End If End With End Sub
Salutations,
Daniel M.
"Cynoq" wrote in message news:c2438c$1f2$
Bonjour,
j'ai le script suivant :
Dim num_client As Variant Sheets("Clients").Select num_client = [W1] Range("B3:B7002").Select Selection.Find(What:=num_client, After:¬tiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ True).Activate
Le problème que j'ai est le suivant : Lors de l'exécution de la macro, le message suivant apparaît : "Variable objet ou variable de bloc With non définie". Pourquoi?
Deuxième question : comment faire pour sélectionner le résultat et se déplacer de x colonnes (sous Excel) afin d'y insérer une formule?
D'avance un grand merci.
Bonjour,
Sub JeCherche()
Dim OuEstIl As Variant
With Sheets("Clients")
OuEstIl = Application.Match(.Range("W1"), .Range("B3:B7002"), 0)
If IsError(OuEstIl) Then
' pas trouvé
Else
MsgBox Application.Index(.Range("B3:B7002"), OuEstIl) & " " &
OuEstIl
End If
End With
End Sub
Salutations,
Daniel M.
"Cynoq" <poste8.cybercentre@wanadoo.fr> wrote in message
news:c2438c$1f2$1@news-reader1.wanadoo.fr...
Bonjour,
j'ai le script suivant :
Dim num_client As Variant
Sheets("Clients").Select
num_client = [W1]
Range("B3:B7002").Select
Selection.Find(What:=num_client, After:¬tiveCell, LookIn:=xlFormulas,
LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
True).Activate
Le problème que j'ai est le suivant : Lors de l'exécution de la macro, le
message suivant apparaît :
"Variable objet ou variable de bloc With non définie".
Pourquoi?
Deuxième question : comment faire pour sélectionner le résultat et se
déplacer de x colonnes (sous Excel) afin d'y insérer une formule?
Sub JeCherche() Dim OuEstIl As Variant With Sheets("Clients") OuEstIl = Application.Match(.Range("W1"), .Range("B3:B7002"), 0) If IsError(OuEstIl) Then ' pas trouvé Else MsgBox Application.Index(.Range("B3:B7002"), OuEstIl) & " " & OuEstIl End If End With End Sub
Salutations,
Daniel M.
"Cynoq" wrote in message news:c2438c$1f2$
Bonjour,
j'ai le script suivant :
Dim num_client As Variant Sheets("Clients").Select num_client = [W1] Range("B3:B7002").Select Selection.Find(What:=num_client, After:¬tiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ True).Activate
Le problème que j'ai est le suivant : Lors de l'exécution de la macro, le message suivant apparaît : "Variable objet ou variable de bloc With non définie". Pourquoi?
Deuxième question : comment faire pour sélectionner le résultat et se déplacer de x colonnes (sous Excel) afin d'y insérer une formule?
