Voici le code que j'ai écris, mais j'ai une erreur sur l'objet RangeObj
et une erreur sur Else ou il me dit qu'il n'y a pas de if...? alors que j'en ai un en début de ligne... je ne comprends pas.
Pourriez-vous m'aider ?
Dans ma combobox j'ai listé tous les noms d'ILNs présents sur la ligne 16 en effet un nom est utilisé pour deux colonnes (j'ai utilisé lorsque j'ai créé mes colonnes "centrer sur plusieurs colonnes"). Ainsi dans ma combobox je n'ai que les ILNs présents une case sur deux (là dessus pas de prob).
Ensuite j'aimerai que plus tard dans le usf lorsque la personne veut ajouter un volume sur un ILN donné, l'outil cherche l'ILN souhaité et se place dans la case correspondante au volume à ajouter. (elle se situe 2 ligne en dessous de là où la fonction est censée rechercher les ILN).
Merci d'avance
et une erreur sur Else ou il me dit qu'il n'y a pas de if...? alors que j'en ai un en début de ligne... je ne comprends pas.
Code:
Private Sub ajouter_volume_ILN_Click()
Dim vol As Long
Dim nom_ILN As String
Dim PlageILN2 As Range
Dim RangeObj As Range
With Sheets("Synthèse")
vol = TextBox_volume_ILN
Set PlageILN2 = .Range(.Cells(16, 2), .Cells(16, der_colonne))
nom_ILN = ComboBox_ILN_choisis.Text
.Cells(16, 1).Select
Set RangeObj = PlageILN2.Find(What:="ILN" & nom_ILN, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
If RangeObj Is Nothing Then MsgBox "ILN non ajouté, veuillez le créer dans le formulaite variable générale" Else: RangeObj.Select
RangeObj.Offset(2, 0).Select
ActiveCell.Value = vol
End If
End With
End Sub
Pourriez-vous m'aider ?
Dans ma combobox j'ai listé tous les noms d'ILNs présents sur la ligne 16 en effet un nom est utilisé pour deux colonnes (j'ai utilisé lorsque j'ai créé mes colonnes "centrer sur plusieurs colonnes"). Ainsi dans ma combobox je n'ai que les ILNs présents une case sur deux (là dessus pas de prob).
Ensuite j'aimerai que plus tard dans le usf lorsque la personne veut ajouter un volume sur un ILN donné, l'outil cherche l'ILN souhaité et se place dans la case correspondante au volume à ajouter. (elle se situe 2 ligne en dessous de là où la fonction est censée rechercher les ILN).
Merci d'avance