Argument non facultatif ???

[Cougar]

Bonjour le Forum,

Dans le code suivant je recherche une chaine de caractère à l'aide d'un inputbox. Lorsque que je veux comparer la chaine de caractère, j'ai le message Argument non facultatif. Comment corriger pour que le tout fonctionne ?

Sub Trouve_Chaine()
Dim Macellule As Range
Set Macellule = Range("a:a")
Range("A1").Select
chaine = InputBox("Chaine à chercher", "Recherche")
For i = 1 To Range("A65536").End(xlUp).Row
If InputBox.MatchEntry = FmMatchEntryComplete Then GoTo Sélection 'inputbox est l'argument non facultatif
Next i
Sélection:
If Not Macellule Is Nothing Then
Range(Range("A1"), Macellule).Select
Else
MsgBox "Recherche infructueuse"
End If
End Sub

Merci

 

[Pierrot93]

Re : Argument non facultatif ???

Bonsoir Cougar

regarde le code ci dessous si cela peut t'aider :

Dim chaine As String
chaine = InputBox("Chaine à chercher", "Recherche")
For i = 1 To Range("A65536").End(xlUp).Row
If Range("A" & i).Value = chaine Then MsgBox "chaine trouvée"
Next i

bonne soirée
@+

 

[Pierrot93]

Re : Argument non facultatif ???

Re

une autre solution :

Dim chaine As String, macell As Range
chaine = InputBox("Chaine à chercher", "Recherche")
Set macell = Range("A:A").Find(chaine, , , xlWhole, , , False)
If Not macell Is Nothing Then MsgBox "chaine trouvée en : " & macell.Address

@+

 

[Cougar]

Re : Argument non facultatif ???

Bonjour Pierrot93,

Cependant si je cherche la chaine de caractère "al" pour trouver allo, zut, ça marche pas. Mon code est probablement mal écrit.

Merci

 

[myDearFriend!]

Re : Argument non facultatif ???

Bonsoir Cougar, Pierrot93, le Forum,

Dans ce cas, tu remplaces simplement xlWhole par xlPart dans le code que te présente Pierrot93.

Cordialement,

 

[Cougar]

Re : Argument non facultatif ???

Merci pour votre aide MDF et Pierrot93. Ça fonctionne très bien.

 

[myDearFriend!]

Re : Argument non facultatif ???

Re,

Oui, merci surtout à Pierrot93, c'est quand même lui qui a fait tout le travail lol 😛

 

[jcalvet]

Re : Argument non facultatif ???

Bonjour,
Je dois transférer des valeurs d'un Excel de travail (collecte et décompte de données) vers des Excel "institutionnels". Il s'agit de Statistiques.
Un UserForm me sert d'interface.
Un bouton et son code Vba déclenchent le transfert des données.
1) y-a-t'il une meilleure méthode que:
Workbooks("absentéisme pack .xls").Sheets("ABSENTEISME").Range("C1") = Workbooks("'élèves pack.xls").Sheets(" ELEVES ").Range("E9") ????
et ça répété une "tonne" de fois?
2) en voulant raccourcir mon code, j'ai voulu faire un "SET" et manifestement je me débrouille mal. Je n'ai pas trouvé de tuto non plus.
AbsFic = "absentéisme pack .xls"
Set Absentéisme = Workbooks(AbsFic).Sheets(1).Cells(1, Val)
me donne une erreur: "Argument non facultatif".

Quelqu'un sait-il m'aider ??
Merci d'avance