EXCEL-VBA Extraction/Ajout de données

Fermé

Philindy - 24 oct. 2007 à 12:01
ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 - 24 oct. 2007 à 17:17

Bonjour,

J'ai dans un tableau, une colonne (env 600 lignes) avec des données de ce type : 12+455 ou 1+000 ou 145+1789, etc...; Comment je peut récupérer les données à gauche du + pour les inscrire sur une autre colonne ?
Dans une autre colonne (env 800 lignes), j'ai des nombres de ce type : 45 ou 156 ou 899A ou 45N, etc..., je voudrais ajouter à gauche de ces nombres les caractères suivants (exemple) : 56 J0 automatiquement en gardant toujours 8 carctères dans la colonne. La différence se ferait avec le nombre de zéro après le J. Je n'arrive pas sous VBA.
Si quelqu'un pouvait m'aider, un grand merci d'avance. Simplement j'aimerais quand je clique sur une cellule "résultat", je vois le résultat et non la formule. MERCI

A voir également:

EXCEL-VBA Extraction/Ajout de données
Liste déroulante excel - Guide
Trier des données excel - Guide
Word et excel gratuit - Guide
Si et excel - Guide
Déplacer une colonne excel - Guide

2 réponses

Réponse 1 / 2

ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50
24 oct. 2007 à 16:31

Bonjour,

"Comment je peut récupérer les données à gauche du + pour les inscrire sur une autre colonne ?"

Tu peux utiliser la fonction Split :

Sub test()
    Dim a As Variant
    a = Split("12+455", "+" )
    MsgBox a(1)
End Sub

"Dans une autre colonne (env 800 lignes), j'ai des nombres de ce type : 45 ou 156 ou 899A ou 45N, etc..., je voudrais ajouter à gauche de ces nombres les caractères suivants (exemple) : 56 J0 automatiquement en gardant toujours 8 carctères dans la colonne. La différence se ferait avec le nombre de zéro après le J"

Je n'ai pas tres bien compris ce que tu veux exactement !!!

Réponse 2 / 2

Philindy
24 oct. 2007 à 16:53

Merci de ton intêret

Dans une autre colonne (env 800 lignes), j'ai des nombres de ce type : 45 ou 156 ou 899A ou 45N, 6, etc...,
je voudrais ajouter, dans une nouvelle colonne, à gauche de ces nombres (ci-dessus) les caractères suivants (exemple) : 56 J0 automatiquement en gardant toujours 8 caractères dans la colonne. La différence se ferait avec le nombre de zéro après le J.
Je n'arrive pas sous VBA.
Exemple :
56 J0045
56 J0156
56 J045N
56 J0006
Voila, j'espère mettre bien expliquer. MERCI

ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50
24 oct. 2007 à 17:17

ex : "45"

longueur de "45" = 2

longueur de "56 J" = 4

Nombre de "0" à ajouter :
8 - 4 - 2 = 2

=> "00"

Pseudo code :

Dim iNbTotal as Integer 
Dim iNbZero as Integer 
Dim sZero as String
Dim sVar as String
Dim sVar2 as String
Dim sVarRes as String
Dim iLngVar as Integer
Dim iLngVar2 as Integer

sZero = ""

iNbTotal = 8

sVar = "45" 'la c'est en dur, il faudra mettre la valeur exacte

sVar2 = "56 J"

iLngVar = Len(sVar) 
iLngVar2 = Len(sVar2) 

iNbZero =  iNbTotal - iLngVar - iLngVar2

Select Case iNbZero
   Case 1
       sZero = "0"
   Case 2
       sZero = "00"
   Case 3
       sZero = "000"
End Select

sVarRes = sVar2 & sZero & sVar

MsgBox   sVarRes

PS : à voir si il n'y a pas une méthode de remplissage avec un caractère donné pour un certain nombre de fois en vba. Cela couperait court au Select Case

Discussions similaires

Qui sont les personnes dans mon ajout rapide de Snapchat ?

Bonjour,

Je voudrais savoir sur l'appli snapchat, quand je part sur ajout des amis en bas il y a ajout rapide ou il me montre plusieur utilisateur. Et ce que je ve savoir es que c'est personne la mon ajouter en amis ou c'est une suggestion par snapchat pour que je les demande en amis ?

Comment savoir comment on nous a ajouté sur Snap

J’aimerai savoir si quelqu’un sait comment cela ce fait que j’ai des ajout sur snap mais qu’il n’y a pas marqué comment on m’a ajouté (ajout rapide, mention etc) il y a juste marqué le nom de la personne et à la place de comment la personne m’a ajouter son identifiant snap. Et je ne pense pas que ce soit un beugue parce que je reçois dés ajout ou là il y a écrit comment on m’a ajouté. Et quand je demande au personne ou ils ont eut mon snap ils me répondent ajout rapide je répond que c’est bizzare puisque ça ne me l’a pas mit et là personne change de sujet ( ce n’est pas la première). Et deuxième question aussi concernant les ajouts, un jour j’ai reçu un ajout sur snap via mention sachant que...

Barre de données en pourcentage (maintenir 100% comme max)

Bonjour, J'ai trouvé un modèle de liste de tâches dans Excel qui utilise des barres de données avec remplissage uni pour suivre l'avancement au sein d'une tâche. Celle-ci était paramétrée avec les entrées suivantes: 0-25-50-75-100%. J'ai modifié les entrées afin d'avancer par tranche de 10% pour être plus précise. Depuis, la barre de données ne se remplit plus selon l'avancement "logique", mais en fonction du pourcentage le + haut qui figure dans le tableau à un moment donné. Exemple ci-dessous: Pourtant, j'ai l'impression que la règle est correctement paramétrée pour que la barre de données soit remplie à 100%, et non en fonction du + haut pourcentage du tableau... Voici 2 captures d...

Pourquoi des inconnus bizarres m'ajoutent sur snap ?

Bonsoir, j'ai Snapchat depuis 3 ans et demis et depuis un peu moins d'un an, je reçois souvent des demandes d'amis de meufs avec des bitmojis bizarres, elles portent des vêtements au hasard, des cheveux colorés comme rose, vert, bleu, et un fond chelou. On aurait dit que le bitmoji a été crée au pif et les pseudos ont soit un nom de meuf et des chiffres ou soit des mélanges de lettres avec des chiffres. En ce moment depuis 1 mois, je reçois beaucoup de demande d'amis par ajout rapide ou par la fonction rechercher et m'envoient des images de meufs à poil probablement d'internet qui me demande de m'inscrire sur un site. Ensuite, les textes qu'elles m'envoient sont des copier coller ou des mes...