Discussion :

[dodo69]

Bonjour,

Je suis de nouveau confronter un problème, sans doute à cause d'un mauvais format utiliser à la base.
Je hais les formats!

J'ai dans ma colonne A et B de mon fichier des noms, malheureusement certains sont précédés d'un apostrophe ( ' ) et d'autres pas
J'aimerai simplement supprimer ces apostrophes lorsqu'il y en a:

J'ai ecrit ce bout de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub corriger_apostrophe()
Dim i As Long
Dim j As Long
Dim chaine As String
j = 0
i = 2
 
With Sheets("fusion_entreprise")
Do
i = 2
j = j + 1
    Do
      MsgBox (Left(.Cells(i, j), 1)) 'la Msgbox ne trouve jamais l'apostrophe mais donne la premiere lettre du nom à la place 
    If Left(.Cells(i, j), 1) = "'" Then
 
    chaine = Replace(Left(.Cells(i, j).Value, 1), "'", "") 'remplace l'apostrophe par rien
    End If
    i = i + 1
    Loop Until .Cells(i, j).Value = "" 
Loop Until j = 3
End With
 
End Sub

Si quelqu'un sait comment faire, merci de m'aider


Cdlt
DoDo

[pijaku]

Bonjour,
Le pourquoi du comment est difficilement compréhensible, j'arrive à envisager un soupçon obscur de comment ça se fait...
Cependant, pour pallier ce problème, c'est tout simple en fait :
Tu transformes le contenu de ta cellule en String et le tour est joué...

Exemple de code sans boucle avec ActiveCell :

Code :

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

ActiveCell = CStr(ActiveCell)

[dodo69]

^^ ca ne marche malheureusement pas mieux, mais je pense qu'il l'ignore donc ca ne pose pas de problème au final tant mieux

Par contre j'ai une question annexe, qui ne concerne pas le sujet, mais pour éviter d'ouvrir 150 topics:

J'utilise cette formule (que je vais approprié en VBA)

Code :

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

1
2
 
RECHERCHEV(B2;$A:$A;1;FAUX)

ma question est: comment lui dire d'ecrire "0" lorsqu'il trouve la valeur et "1" lorsqu'il ne la trouve pas.

parce qu'il me renvoie la valeur #N/A quand il trouve pas de valeur.

C'est certainement tout simple mais je bloque là dessus.

Merci d'avance

Cdlt
DoDo

A force de recherche j'ai trouver,
je ne connaissais pas la fonction estna

Code :

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

1
2
 
=SI(ESTNA(RECHERCHEV(B2;$A:$A;1;FAUX));0;1)