=SI(GAUCHE(A2;CHERCHE(" ";A2))="TATA";"BB";"")
Sub toto() 'recup de la valeur de la cellule Ma_valeur = Sheets("Feuil4").Cells(2, 1).Value 'recherche de la position de l'espace dans le texte Recherche_espace = InStr(1, Ma_valeur, " ") 'recupere les premiers caractères à gauche de l'espace Valeur_a_gauche = Left(Ma_valeur, Recherche_espace - 1) 'affichage dans la feuille Sheets("Feuil4").Range("D3").Value = Valeur_a_gauche End Sub
=GAUCHE(A2;CHERCHE(" ";A2))
=GAUCHE(A2;CHERCHE(" ";A2))
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question=SI(GAUCHE(A2;CHERCHE(" ";A2));"BB";"")
Sub Macro1() ' ' Macro1 Macro ' ' Touche de raccourci du clavier: Ctrl+u ' ActiveCell.FormulaR1C1 = "=LEFT(RC[-2],SEARCH("" "",RC[-2]))" Range("D3").Select End Sub
sub toto() worksheets("Feuil4").Range("D3") = Left(worksheets("Feuil4").Cells(2, 1), Search(" ", _ worksheets("Feuil4").Cells(2, 1))) end sub
Sub note_rating() Dim Ma_valeur As String, meme_valeur As String Dim Recherche_espace As Long, cherche_espace As Long, lastrow As Long Dim Valeur_a_gauche As String, le_mot As String Dim k As Long k = worksheets("Synthèse").Cells(Rows.Count, 1).End(xlUp).Row lastrow = Workbooks("Nouvelle version - Risques contreparties FEV 2010").worksheets("Données").Cells(Rows.Count, 1).End(xlUp).Row For i = 0 To k - 7 Step 3 If worksheets("Parametrage").Cells(i + 7, "B").Value <> "" Then 'recup de la valeur de la cellule Ma_valeur = Sheets("parametrage").Cells(i + 7, "B").Value 'recherche de la position de l'espace dans le texte Recherche_espace = InStr(1, Ma_valeur, " ") 'recupere les premiers caractères à gauche de l'espace Valeur_a_gauche = Left(Ma_valeur, Recherche_espace - 1) 'affichage dans la feuille 'Sheets("parametrage").Range("D3").Value = Valeur_a_gauche For j = 0 To lastrow meme_valeur = _ Workbooks("Nouvelle version - Risques contreparties FEV 2010").worksheets("Données").Cells(j + 1, "A").Value cherche_espace = InStr(1, meme_valeur, " ") le_mot = Left(meme_valeur, cherche_espace - 1) If Ma_valeur = meme_valeur Then worksheets("Parametrage").Cells(i + 7, "C").Value = _ Workbooks("Nouvelle version - Risques contreparties FEV 2010").worksheets("Données").Cells(j + 1, "N").Value End If Next End If Next End Sub
k = worksheets("Synthèse").Cells(Rows.Count, 1).End(xlUp).Row