Discussion :

[Foifoi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[eriiic]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

eric

[keygen08]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Foifoi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[keygen08]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[keygen08]

Autant pour moi, l'erreur est la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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