High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

[VB Excel] Parcourir toutes les cellules

Dernière réponse le 30 mai 2007 à 19:35:14 TiBou59, le 30 mai 2007 à 15:11:15 
 Signaler ce message aux modérateurs

Bonjour à tous,

J'ai un fichier Excel à traiter et je dois créer un code VB qui permette de récupérer les identifiants des catégories situés avant le "@" et les insérer à la suite des produits , en l'occurrence à la 7e colonne. Et ceci pour toutes les catégories.

Le fichier Excel présente la forme suivante :

Alimentation >> 3@
Marque Ref. ECP Ref. const Dé Prix HT Dispo
SUNBEAM SUNAL005176 ML-G ML-G Molex Light/Green 4,50 Dispo
SUNBEAM SUNAL005177 ML-B ML-B Molex Light/blue 4,50 Dispo
SUNBEAM SUNAL007340 MCK-UVB MCK-UVB kit conn Molex UV bleu 3,90 Dispo
SUNBEAM SUNAL007341 MCK-UVG MCK-UVG kit conn
Alimentation >> 4@
Marque Ref. ECP Ref. const Dé Prix HT Dispo
ENERMAX ENEAL006961 ELT400AWT-ROHS ELT400AWT Liberty 400W 57,50 Limité
ENERMAX ENEAL006962 ELT500AWT-ROHS ELT500AWT Liberty 500W 80,50 Limité
ENERMAX ENEAL006963 ELT620AWT ELT620AWT Liberty 620W 130,50 N / D


Si vous avez l'amabilité de m'aiguiller sur ce chemin tortueux, ce serait avec grand plaisir.

Merci à tous. :D

P.S : j'effectue actuellement un stage en développement Web et j'apprécie vraiment cette activité et j'ai soif d'apprendre toujours plus. Donc si vous avez le même ressenti que moi, n'hésitez pas à m'envoyer des messages pour s'aider mutuellement si c'est possible. ;)

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « [VB Excel] Parcourir toutes les cellules » dans :
[Excel] Colorer des cellules sur conditions VoirIl existe dans Excel des fonctions très pratiques mais peu connues et peu utilisées. Exemple : vous souhaitez qu'une cellule se colore automatiquement en rouge (ou autre mise en forme de police, de bordure, de trame) selon une condition : un...
Formules Excel de base VoirVoici quelques formules de bases qui sont faciles à réaliser et qui peuvent donner un peu de vie à une feuille Excel ! Pour cette astuce, on supposera que l’on veut que le résultat s’affiche dans la cellule B10 et on se servira principalement des...
Posez votre question Répondre

1

 Lupin.A, le 30 mai 2007 à 19:35:14
  • +1

Bonjour,

en supposant que la plage de cellule à couvrir est situé de [ A1 à C10 ]

suggestion de code : 

Sub LireIdentifiant()

    Dim Plage As Range, Cellule As Range
    Dim Position As Integer
    
    Set Plage = Range("A1:C10")
    
    For Each Cellule In Plage
        Position = InStr(1, Cellule.Value, "@", vbTextCompare)
        If (Position > 0) Then
            ActiveCell.Offset(0, 6).Value = Mid(Cellule.Value, 1, (Position - 1))
        End If
    Next Cellule
    
End Sub
'

Lupin

   
Répondre à Lupin.A
Posez votre question Répondre
Ils ont besoin de votre aide
Collection CommentÇaMarche.net