Excel vb

noobduvb -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
je suis en train de créer une macro!
un traitement ligne par ligne d'une sortie de base de donnée extraite sur excel
arrivée à une cellule je voudrais mettre les 2 premier caractére dans une variable pour faire une recherche de ces 2 caractére ex dans ma cellule j'ai HT\8797899

je voudrais récupéré la valeur HT

je pensée pour le faire avec :

For I = 9 To compteur + 8
' par ligne


resultat = Worksheets("Feuil1").Left(Cells(I, 11).Value, 2)

je connais la formule avec split mais elle ma l'air compliqué
A voir également:

12 réponses

Réponse 1 / 12
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
bonjour,

et la question est ?

;o)
0
Réponse 2 / 12
zavenger Messages postés 811 Date d'inscription   Statut Membre Dernière intervention   161
 
salut

cela me parrait bien. Quel est ton probleme?
0
Réponse 3 / 12
noobduvb
 
oui dsl :)

ma formule
resultat = Worksheets("Feuil1").Left(Cells(I, 11).Value, 2)

n'est pas traité par VB, il me sort une erreur...

:(

je suppose que c'est un simple probleme de syntaxe
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
quelle erreur est générée ?
0
Réponse 4 / 12
zavenger Messages postés 811 Date d'inscription   Statut Membre Dernière intervention   161
 
comme tu n'as pas mis le code complet de ta macro. Difficile de dire.

Ne serait-ca pas plutot la fin de boucle qui manque (Next)?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 12
noobduvb
 
zavenger

ma macro est assez longue à vrais dire, nonje nest pas oublié de next

quand je mes ma formule en commentraire tout tourne correctement...

et de que je la remet,il trouve une erreur et se remet en debogage sur cette formule


merci
0
Réponse 6 / 12
noobduvb
 
l'erreur généré est :
erreur d'exécution 438
proprété ou methode non générée par cet objet

encore merci de vouloir m'aidé
0
Réponse 7 / 12
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
ok alors fais :

resultat = Worksheets("Feuil1").Cells(I, 11).Value
resultat = Left(resultat, 2)

;o)
0
zavenger Messages postés 811 Date d'inscription   Statut Membre Dernière intervention   161
 
juste pour le fun, la reponse est :

resultat = Left(Worksheets("Feuil1").Cells(I, 11).Value, 2)
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204 > zavenger Messages postés 811 Date d'inscription   Statut Membre Dernière intervention  
 
oui aussi :O))
0
Réponse 8 / 12
noobduvb
 
oui en effet sa fonctionne :))
pdt que je vous ai comme précieuse aide

j'ai 2 date

date de début date de fin
27/05/2008 15/07/2008

je voudrais savori si il est possible toujours en Vb de connaitre le nombre de jours ouvré
entre ces 2 date

merci polux
0
Réponse 9 / 12
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
je crois qu'il y a la fonction DateDiff("d", date1,date2) qui retourne le nombre de jour entre les 2 dates.
En double cliquant sur datediff puis en faisant F1, on doit avoir l'aide en ligne concernant cette fonction. Je ne suis pas très sur de ("d") pour le jour.
Il doit aussi y avoir un paramètre pour les jours ouvrés.

;o)

polux
0
Réponse 10 / 12
noobduvb
 
oui je vois je vais faire des petits tests, et voir si je trouve plus sur cette fonction
ce qui m'embéte ce sont les jours ouvrés :s

merci
0
Réponse 11 / 12
noobduvb
 
j'ai trouvé une aide plutot sympa

https://support.microsoft.com/fr-fr/help/466831

avec un petit peus de mal à comprendre
mais si quelqu'un trouve mieu je suis là :p
0
Réponse 12 / 12
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Le principe est sympa sauf qu'il faut déclarer un tableau contenant les jours fériés de l'année contenant les deux dates à tester.

Il est vrai que sans connaissance du langage VB c'est un peu rébarbatif. Mais tu devrais pourvoir l'adapter à ton besoin.

Si tu as des problèmes, fais moi signe.

;o)
0