VBA variable a chaine de caractereRésolu

Question

Bonjour a tous,

voivi ma question: je suis en train de cr&#233;er une macro pour qu'elle puisse automatiquement me d&#233;tecter des fautes de donn&#233;es dans une feuille excel qui contient des donn&#233;es import&#233;es d&#180;une BDD externe.

j'ai donc cr&#233;er une variable qui d&#233;tecte les fautes, mais je n'arrive pas a lui ajouter diff&#233;rentes sortes de fautes.
Je voudrais, par exemple, effacer les cellules qui contiennent soit un? ou une , ou autre chose.
Puis-je faire prendre a ma variable plusieurs valeurs? 

Merci d'avance a ceux qui auront compris ma question et qui sauront y repondre.

Si ce n'est pas clair, n'hesitez pas a me le faire savoir, je joindrai mon code... le seul hic, c ke les variables sont en allemand, ms je joindrai la traduc a cote bien evidemment!!! (Jhabite a Munich)
Merci encore

la bavaroise...

Tuning Max · Accepted Answer

fait plusieurs variables et rajoute OR dans ton code pour la recherche


Fehler_Text = "?"
Fehler_Text2 = "!"

For k = 1 To Sheet_Quelle_Ende  
    Zelleninhalt = Sheets(Sheet_Quelle).Range(Sheet_Quelle_col & k).Value
    'maintenant voir, si le contenu de la cellule a une faute
    If InStr(Zelleninhalt, Fehler_Text) Or InStr(Zelleninhalt, Fehler_Text2)Then

VBFranceBlub · Answer

Salut;

Effectivement, tout &#231;a n'est pas tr&#232;s clair.

D'apr&#232;s ce que j'ai compris, tu veux pouvoir r&#233;cup&#233;rer la valeur d'une cellule de la feuille Excel et la tester pour savoir si elle contient une faute de frappe?

Pour affecter une valeur &#224; une variable:

'D&#233;claration de la variable en type Variant pour accepter tous les caract&#232;res et tous les formats de donn&#233;es
Public MaVariable As Variant

'Affectation de la valeur d'une cellule &#224; ta variable
MaVariable = Cells(Coordonn&#233;eX,Coordonn&#233;eY)


<-Blub->

econs · Answer

'D&#233;claration de la variable en type Variant pour accepter tous les caract&#232;res et tous les formats de donn&#233;es
Public MaVariable As Variant

'Affectation de la valeur d'une cellule &#224; ta variable
MaVariable = Cells(Coordonn&#233;eX,Coordonn&#233;eY)



If Instr(1,MaVariable,"?",vbTextCompare) > 0 Then

    Cells(CoordonneeX,CoordonneeY).FormulaR1C1 = ""

EndIf





If Instr(1,MaVariable,",",vbTextCompare) > 0 Then

    Cells(CoordonneeX,CoordonneeY).FormulaR1C1 = ""

EndIf


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

la_bavaroise · Answer

ok en fait tu as bien cerne mon pb, malgre mon langage assez approximatif en effet!!

en fait, le code que tu mas donne ne peut pas fonctionner car je ne sais pas ou seront precisement les fautes, tt dependera a chaque fois de lactualisation des donnees. cest pour cela que je ne peux pas affecter la valeur d'une cellule a ma variable, seulement une colonne (je sais que les noms a chercher st seulement ds la colonne C)
 voici mon code:

Option Explicit
Public Sheet_Quelle, Sheet_Quelle_col, Sheet_Quelle_Ende
'(Quelle=source)


Sub Finde_Fehler() '(macro trouver_faute)


'***********************************************************************************
'Variables a declarer
'******************************************************************
Sheet_Quelle = "WWH"     'le nom de ma Worksheet, ou je veux trouver la derniere 'ligne
Sheet_Quelle_col = "C"      la colonne de ma Worksheet, ou je veux trouver la 'derniere ligne 

Call letzte_zeile_Quelle    ' la derniere ligne, qui sera trouve par Public Sub 'letzte_zeile grace a lordre Call


Sheets(Sheet_Quelle).Select 


Dim k, Zelleninhalt, Fehler_Text As Variant


Fehler_Text = "?"


For k = 1 To Sheet_Quelle_Ende  
    Zelleninhalt = Sheets(Sheet_Quelle).Range(Sheet_Quelle_col & k).Value
    'maintenant voir, si le contenu de la cellule a une faute
    If InStr(Zelleninhalt, Fehler_Text) Then
    'la, jutilise la fonction InStr
    'si il y a bien une faute, alors
        Rows(k).Delete  'Die Zeile l&#246;schen, da ein Fehler drin ist
        k = k - 1       
    End If
Next k
       
End Sub


Public Sub letzte_zeile_Quelle()
    Sheets(Sheet_Quelle).Select
    Sheet_Quelle_Ende = 0
    Sheet_Quelle_Ende = ActiveSheet.Cells(Rows.Count, Sheet_Quelle_col).End(xlUp).Row
    
End Sub

Voila,
mon seul souci est d'arriver a dire quil peut y avoir differentes fautes (cf en rouge) et en fait donner le choix a cet variable detre soit ? ou, etc...

Bon si tu vois pas ce ke je veux dire, ya pas de souci, te prends pas la tete,
en tt cas, merci qd meme pour ta gentillesse!
Ciao,
la bavaroise

bertholdt · Answer

Salut

Utilise $ pour remplir une variable avec une valeur String.
Par exemple
cellule$ = Cell(X,Y).Value

Quelle que soit le type de valeur contenu dans les cellules, la valeur sera stock&#233;e dans cellule$ au format string (cha&#238;ne de caract&#232;res).
Ensuite, tu peux utiliser InStr sans probl&#232;me.

Dans le code que tu as post&#233;, tu &#233;cris :

If InStr(Zelleninhalt, Fehler_Text) Then ...

Mais tu ne compares rien !
En fait, il faut &#233;crire

If InStr(1, cellule$, ton param&#232;tre "?", vbTextCompare) <> 0 Then ...

Bon courage

Pierrick

la_bavaroise · Answer

Salut a tous,

merci de mavoir repondu, c genial: ca marche Cap'taine!! Alors encore merci beaucoup, les plus petites difficultes st peut etre les + ennuyantes je crois....
Merci particulierement a Tuning Max et a Berthold pour leur precieux conseils!!!

Bon week-end a vous, je trinquerai &#224; votre sant&#233; ce week-end, c'est l'ouverture de l'Oktoberfest (Fete de la biere a Munich)

Bonne continuation,

Caroline (alias la_bavaroise)