[XL-2010] Traduire fonction excel en VBA dans une macro

Bonjour à tous,

j'ai cette fonction dans une feuille excel =GAUCHE(G2;CHERCHE("//";G2)-1)
La colonne G contient des commentaires et j'utilise // pour séparer le dernier commentaire des précédents.
La fonction ci-dessus me permet donc d'écrire dans la colonne H uniquement ce qu'il y a avant le séparateur.
Cependant VBA ne m'accepte pas la syntaxe et me donne l'erreur suivante "sub ou fonction non définie"

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim NombreCR As Integer Sub PrsReview() Dim Cellule As CellFormat NombreCR = ActiveWorkbook.Worksheets(1).UsedRange.Rows.Count MsgBox NombreCR For i = 2 To NombreCR Cellule = ActiveWorkbook.Worksheets(1).Cells(i, 7).Value ActiveWorkbook.Worksheets(1).Cells(i, 8) = gauche(Cellule, cherche("attendees", Cellule) - 1) Next i End Sub

---

Pouvez-vous m'aider à finaliser ce code svp ?

Bonjour,

Le séparateur utilisé dans ton code n'a rien à voir avec celui annoncé "//". Fait un effort pour être clair et cohérent si tu veux des réponses adaptées.
Pour évaluer une formule en vba on utilise evaluate(). Voir aide excel dessus.
Utilise plutôt split(). Ex :

Code:

---

MsgBox Split([A2], "//")(0)

---

eric

Bonjour

Code:

---

ActiveWorkbook.Worksheets(1).Cells(i, 8) = Left(cellule, InStr(cellule, "attendees") - 1)

---

Merci pour votre aide,

en mettant ce code, j'ai une erreur de compilation "argument ou appel de procédure incorrect" à la ligne 8.
je ne comprends pas quel argument ne convient pas. J'ai défini Cellule en tant que string au début.

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim NombreCR As Integer Dim Cellule As String Sub PrsReview() NombreCR = ActiveWorkbook.Worksheets(1).UsedRange.Rows.Count MsgBox NombreCR For i = 2 To NombreCR Cellule = ActiveWorkbook.Worksheets(1).Cells(i, 7).Value ActiveWorkbook.Worksheets(1).Cells(i, 8) = Left(Cellule, InStr("//", Cellule) - 1) Next i End Sub

---

en écrivant cela et en placan un espion sur la ligne definissant la variable cellule, que ce passe t-il sur les deux autres lignes

Code:

---

1 2 3 4

Cellule = ActiveWorkbook.Worksheets(1).Cells(i, 7).Value a= Left(Cellule, 3) b= InStr("//", Cellule) - 1) 'ActiveWorkbook.Worksheets(1).Cells(i, 8) = Left(Cellule, InStr("//", Cellule) - 1)

---

est ce que la variable cellule contient bien //
et puis j'aurai plutôt ecris

Code:

---

1 2 3 4 5 6 7 8 9

Sub PrsReview() Dim NombreCR As Integer Dim Cellule As String For i = 2 To ActiveWorkbook.Worksheets(1).UsedRange.Rows.Count MsgBox i Cellule = ActiveWorkbook.Worksheets(1).Cells(i, 7).Value ActiveWorkbook.Worksheets(1).Cells(i, 8) = Left(Cellule, InStr("//", Cellule) - 1) Next i End Sub

---

Autant pour moi, l'erreur est la

Code:

---

ActiveWorkbook.Worksheets(1).Cells(i, 8) = Left(Cellule, InStr(Cellule, "//") - 1)

---

il n'empeche que le dimensionnement des variable est a mon avis, mal placé. Donc au final, on obtient cela

Code:

---

1 2 3 4 5 6 7 8 9

Sub PrsReview() Dim i As Integer Dim Cellule As String For i = 2 To ActiveWorkbook.Worksheets(1).UsedRange.Rows.Count MsgBox i Cellule = ActiveWorkbook.Worksheets(1).Cells(i, 7).Value ActiveWorkbook.Worksheets(1).Cells(i, 8) = Left(Cellule, InStr(Cellule, "//") - 1) Next i End Sub

---