Récupération à partir d'un champs caractère.

Pierrot93

XLDnaute Barbatruc

• 24 Février 2011

• #2

Re : Récupération à partir d'un champs caractère.

Bonjour,

regarde ceci, sans plus de détails....

Code:

Dim c As Range
For Each c In Range("monchamp")
    MsgBox c.Value
Next c

bon après midi
@+

 

Vote positif 0 Vote négatif

M

miky973

XLDnaute Occasionnel

• 24 Février 2011

• #3

Re : Récupération à partir d'un champs caractère.

Pierrot93 à dit:

Bonjour,

regarde ceci, sans plus de détails....

Code:

Dim c As Range
For Each c In Range("monchamp")
    MsgBox c.Value
Next c

bon après midi
@+

Cliquez pour agrandir...

Bonjour Pierrot,
j'aime bcp ta macro, mais ça me donne l'erreur 400 ???

What else?

Merci pour ton aide

Miky

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 24 Février 2011

• #4

Re : Récupération à partir d'un champs caractère.

Bonjour à tous,

remplacer:
For Each c In Range("monchamp")

par:
For Each c In Range("NOM")

à+
Philippe

 

Vote positif 0 Vote négatif

M

miky973

XLDnaute Occasionnel

• 25 Février 2011

• #5

Re : Récupération à partir d'un champs caractère.

Bonjour,

Oui c'est bien ce que j'ai tenté mais cela ne fontionne tjrs pas la mm erreur.

A+

 

Dernière édition: 25 Février 2011

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Février 2011

• #6

Re : Récupération à partir d'un champs caractère.

Bonjour,

mon champs "NOM" positionné dans la colonne B

Cliquez pour agrandir...

cela correspond à quoi ??? un petit fichier représentant le problème posé nous aiderait à t'aider...

bonne journée
@+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 25 Février 2011

• #7

Re : Récupération à partir d'un champs caractère.

Bonjour Miky

la qualité des réponses apportées étant directement proportionnelle à la précision des questions posées .............,
je pense qu'il vaudrait mieux que tu joignes une ébauche de fichier avec explication plus précises

à+
Philippe

 

Vote positif 0 Vote négatif

M

miky973

XLDnaute Occasionnel

• 25 Février 2011

• #8

Re : Récupération à partir d'un champs caractère.

Re-bonjour,

Voici mon exemple avec plus d'explication et j'ai rajouté ce que je voulais faire exactement.

Merci pour votre aide.

Best Regards,

Miky

 

Pièces jointes

• EXEMPLE et explication.xls

  30 KB · Affichages: 32
• EXEMPLE et explication.xls

  30 KB · Affichages: 33
• EXEMPLE et explication.xls

  30 KB · Affichages: 31

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Février 2011

• #9

Re : Récupération à partir d'un champs caractère.

Re,

pas grand chose à voir avec la question initiale... enfin à mon sens....

 

Vote positif 0 Vote négatif

M

miky973

XLDnaute Occasionnel

• 25 Février 2011

• #10

Re : Récupération à partir d'un champs caractère.

Re, j'ai élargie mon premier point mais ce que je recherche c'est d'extraire les données du champs "TOP GAMES" pour me permettre de faire des recherches et des concaténations par la suite.

J'ai élargie mon problème pour que tu puisses mieu comprendre. Mais dans un sens sens tu as raison je v modifier mon topics comme ça ce sera bcp plus clair.

J'espère que vous réussirez à trouver la meilleurs des solutions pour moi.
Je vous remercie pour votre aide étant débutant en vba cela n'est pas très facile pr moi.

Best regards.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Février 2011

• #11

Re : Récupération à partir d'un champs caractère.

Re,

Je vous remercie pour votre aide étant débutant en vba cela n'est pas très facile pr moi.

Cliquez pour agrandir...

je ne vois pas le début d'un code dans ton fichier... ce forum n'a pas vocation à fournir des appli clés en main, mais plutôt à t'aider dans le développement de ton projet.... commence déjà par faire des petites recherches sur le forum, sans doute t'apporteront elles un début de solution....

 

Vote positif 0 Vote négatif

M

miky973

XLDnaute Occasionnel

• 25 Février 2011

• #12

Re : Récupération à partir d'un champs caractère.

Re-
Pour le moment voici mon avancé, mais le problème est que sa liste bien 2 valeurs, mais pas ddans

Code:

Sub donn()
Dim c As Range
Dim x As Range

Set x = Sheets("Feuil1").Range("B:B").Find("TOP GAMES", , xlValues, xlWhole, , , False)
For Each c In Range(x, x.End(xlDown))
    
Next c

End Sub

J'en suis là pr le moment et je n'ai pas la méthode pr lister et extraire ces donnée au moins dans une autre cellule

 

Dernière édition: 25 Février 2011

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Février 2011

• #13

Re : Récupération à partir d'un champs caractère.

Re,

regarde ceci :

Code:

Option Explicit
Sub test()
Dim c As Range, x As Range
With Sheets("Feuil1")
    Set x = .Range("B:B").Find("TOP GAMES", , xlValues, xlWhole, , , False)
    If x Is Nothing Then Exit Sub
    For Each c In Range(x.ofset(1, 0), .Range("65536").End(xlUp))
        
    Next c
End With
End Sub

A noter, si tu veux faire du vba, il est préférable que tes données soient bien structurées et ordonnées sur ta feuille, dans le code proposé, le code détermine la dernière cellule renseignée de la colonne B....

 

Vote positif 0 Vote négatif

M

miky973

XLDnaute Occasionnel

• 25 Février 2011

• #14

Re : Récupération à partir d'un champs caractère.

Pierrot93 à dit:

Re,

regarde ceci :

Code:

Option Explicit
Sub test()
Dim c As Range, x As Range
With Sheets("Feuil1")
    Set x = .Range("B:B").Find("TOP GAMES", , xlValues, xlWhole, , , False)
    If x Is Nothing Then Exit Sub
    For Each c In Range(x.ofset(1, 0), .Range("65536").End(xlUp))
        
    Next c
End With
End Sub

A noter, si tu veux faire du vba, il est préférable que tes données soient bien structurées et ordonnées sur ta feuille, dans le code proposé, le code détermine la dernière cellule renseignée de la colonne B....

Cliquez pour agrandir...

Re-bonjour,

Merci pour ton aide mais j'ai encore une erreur,

Propriété ou méthode non gérée par cet objet

Cliquez pour agrandir...

A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Février 2011

• #15

Re : Récupération à partir d'un champs caractère.

Re,

manque peut être un point

Code:

Option Explicit
Sub test()
Dim c As Range, x As Range
With Sheets("Feuil1")
    Set x = .Range("B:B").Find("TOP GAMES", , xlValues, xlWhole, , , False)
    If x Is Nothing Then Exit Sub
    For Each c In .Range(x.ofset(1, 0), .Range("65536").End(xlUp))
        
    Next c
End With
End Sub

 

Vote positif 0 Vote négatif