ajout/soustraction dans une chaine de caracteres

[totor92290]

Bonjour,

J'ai dans les lignes A5 à A44 des lettres allant de A à F
la chaine complète est ABCDEF
je voudrais avoir dans une cellule les lettres manquantes
exemple :
Si en ligne A5 j'ai A
Si en ligne A10 j'ai F
Si en ligne A11 j'ai D

je voudrais que s'affiche dans la céllule A2 les caractères manquants, à savoir BCE

C'est possible ?

 

[CISCO]

Re : ajout/soustraction dans une chaine de caracteres

Bonjour à tous

Sauf erreur de ma part, c'est OK avec

=CONCATENER(SI(ESTNA(EQUIV("A";A$5:A$44;0));"A";"");SI(ESTNA(EQUIV("B";A$5:A$44;0));"B";"");SI(ESTNA(EQUIV("C";A$5:A$44;0));"C";"");SI(ESTNA(EQUIV("D";A$5:A$44;0));"D";"");SI(ESTNA(EQUIV("E";A$5:A$44;0));"E";"");SI(ESTNA(EQUIV("F";A$5:A$44;0));"F";""))

Il y a certainement plus simple ou plus polyvalent.

@ plus

 

[totor92290]

Re : ajout/soustraction dans une chaine de caracteres

Merci,
Désolé mais je n'ai pas mis tous mes cas possibles...
J'ai un problème, c'est que la lettre peut être associé à un groupe
en fait je peut avoir tout ou partie de la chaîne de caractères
exemple :
Si en ligne A5 j'ai A
Si en ligne A10 j'ai FE
Si en ligne A11 j'ai D
Si en ligne A25 j'ai C

je voudrais que s'affiche B

Désolé pour le manque de clarté !!!

 

[ROGER2327]

Re : ajout/soustraction dans une chaine de caracteres

Bonjour à tous

Une fonction écrite à la volée :

[COLOR="DarkSlateGray"]Function toto(R As Range) As String
Dim oCel As Range, c As String, s As String, sp
Dim i As Long, j As Long
   s = "ABCDEF"
   For Each oCel In R.Cells
      For i = 1 To Len(oCel.Value)
         c = Mid$(oCel.Value, i, 1)
         For j = 1 To Len(s)
            If c = Mid$(s, j, 1) Then Mid$(s, j, 1) = " "
         Next j
      Next i
   Next oCel
   sp = Split(s)
   For i = 0 To UBound(sp)
      toto = toto & sp(i)
   Next i
End Function[/COLOR]

C'est brut de fonderie et il y a certainement plus subtil. Mais ça fonctionne...​

ROGER2327

 

[totor92290]

Re : ajout/soustraction dans une chaine de caracteres

Merci,
mais je suis débutant et je ne sais pas ou je la colle ?

 

[CISCO]

Re : ajout/soustraction dans une chaine de caracteres

Bonjour

Une autre possibilité, avec une colonne intermédiaire. Si il le faut, on peut se passer de cette colonne intermédiaire...

@ plus

 

[ROGER2327]

Re : ajout/soustraction dans une chaine de caracteres

Re...

Voyez le classeur joint :
Le code est dans le module Module1.

Pour y accéder, faites Alt + F11.
Vous ouvrirez ainsi à l'éditeur VisualBasic.
Si vous ne voyez pas le module Module1, faites Ctrl + R pour ouvrir l'Explorateur de projets puis double-cliquez sur Module1.​

ROGER2327

 

[totor92290]

Re : ajout/soustraction dans une chaine de caracteres

Merci
Mais il semblerait que cela ne fonctionne pas. Lorsque j'ajoute une lettre dans la colonne ça bug !
"erreur de compilation" sub fonction non definie ???

 

[ROGER2327]

Re : ajout/soustraction dans une chaine de caracteres

Re...

Je viens de rouvrir le classeur joint ci-dessus, d'ajouter, de supprimer des données dans la colonne A : aucun problème. (D'ailleurs, sauf mention expresse, je teste toujours les propositions que je fais.)
Si il y a un problème, joignez le classeur fautif à votre prochain message.​

ROGER2327

 

[totor92290]

Re : ajout/soustraction dans une chaine de caracteres

Quand vous ajouter des lettres dans les lignes 5 à 44 les lettres en questions "disparaissent" de la chaîne de caractères dans la cellule A2 ?
Au fait je suis sous Mac, ça ne pose pas de problème ?

 

[Monique]

Re : ajout/soustraction dans une chaine de caracteres

Bonjour,

Par formule (matricielle)
Il doit y avoir plus simple

 

[totor92290]

Re : ajout/soustraction dans une chaine de caracteres

Dans le message d'erreur il m'ouvre une fenêtre de code (module 1) ou la première ligne est en jaune
"Function toto(R As Range) As string" est surlignée en jaune
et ou "sp = Split(s)" le mot Split est en bleu ??

 

[totor92290]

Re : ajout/soustraction dans une chaine de caracteres

Merci A tous les deux

IMPEC !!!!

 

[ROGER2327]

Re : ajout/soustraction dans une chaine de caracteres

Re...

Quand vous ajouter des lettres dans les lignes 5 à 44 les lettres en questions "disparaissent" de la chaîne de caractères dans la cellule A2 ?
Au fait je suis sous Mac, ça ne pose pas de problème ?

Oui, les lettres disparaissent comme elles le doivent. Mais j'utilise un système Windows. Je ne connais rien des limites de compatibilité entre les deux systèmes. Désolé.
​

ROGER2327
_
_
__________________
P.S. : Je n'avais pas vu votre dernier message. Finalement, ça fonctionne, c'est l'essentiel.