Recupérer la colonne.

Pierrot93

XLDnaute Barbatruc

• 5 Juillet 2013

• #2

Re : Recupérer la colonne.

Bonjour,

histoire de s'amuser un peu avec la méthode "Find"... A adapter...

Code:

Option Explicit
Sub test()
Dim x As Range, a As String, i As Byte
With Range("H1:CA1")
    Set x = .Find("*", Range("CA1"), xlValues, , 2, 1, 0)
    If Not x Is Nothing Then
        a = x.Address
        For i = 1 To 6
            Set x = .FindNext(x)
            If a = x.Address Then Exit For
        Next i
        If i = 7 Then MsgBox "Valeur " & x.Value & " en colonne " & x.Column
    End If
End With
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 5 Juillet 2013

• #3

Re : Recupérer la colonne.

Bonjour

voici une fonction ferait peut être la même chose

VB:

Option Explicit
Option Base 1

Public Function trouver_n(vecteur_ligne, numero)
Dim nb, i, num, valeurs
  valeurs = vecteur_ligne.Value
  nb = UBound(valeurs, 2)
  i = 1
  num = 1
  Do While i <= nb
    If (valeurs(1, i) <> "") Then
      If num = numero Then
        trouver_n = valeurs(1, i)
        Exit Function
      End If
      num = num + 1
    End If
    i = i + 1
  Loop
End Function

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 5 Juillet 2013

• #4

Re : Recupérer la colonne.

Bonjour Pierrot, tbft,

Merci pour vos réponses que je vais tester ce soir ou demain matin.
Par contre, j'ai plusieurs lignes à tester et je voudrais les résultats en CA1,CA2,CA3....etc.

Que dois-je modifier dans la fonction?

Merci à vous.

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 5 Juillet 2013

• #5

Re : Recupérer la colonne.

Re

La fonction trouver_n fonctionne (normalement) comme une fonction d'excel.
en CA1 tu écris =trouver_n(H1:BZ1;7)
en CA2 tu écris =trouver_n(H1:BZ2;7)
en CA3 tu écris =trouver_n(H1:BZ3;7)
en CA4 tu écris =trouver_n(H1:BZ4;7)
etc....

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 5 Juillet 2013

• #6

Re : Recupérer la colonne.

Rebonsoir,
J'ai mis un exemple Excel (c'est plus facile) , j'ai une erreur NOM? en résultat.

Merci de me dire où j'ai fait l'erreur.

A+

 

Pièces jointes

• Classeur2.xls

  35.5 KB · Affichages: 46
• Classeur2.xls

  35.5 KB · Affichages: 63
• Classeur2.xls

  35.5 KB · Affichages: 57

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 5 Juillet 2013

• #7

Re : Recupérer la colonne.

Bonsoir JJ1,

Un exemple avec une formule matricielle en BS1 à valider par Ctrl+Maj+Entrée puis à recopier vers le bas.

La formule:

Code:

=ADRESSE(LIGNE();PETITE.VALEUR(SI(ESTNUM(A1:BR1);COLONNE(A1:BR1));7);4)

Nota: pour effacer l'erreur NOM?:

• insérer un module
• couper le code de la fonction du module de feuille "Feuil1" pour le coller dans le module nouvellement créé.

 

Pièces jointes

• Recupérer la colonne v1.xls

  33 KB · Affichages: 50

Dernière édition: 5 Juillet 2013

Vote positif 0 Vote négatif

J

JJ1

Guest

• 6 Juillet 2013

• #8

Re : Recupérer la colonne.

Bonjour,

Merci mapomme, merci tous,
Ca fonctionne parfaitement.

Bon WE

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Juillet 2013

• #9

Re : Recupérer la colonne.

Bonjour à tous, annulé car erroné.

 

Dernière édition: 6 Juillet 2013

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Juillet 2013

• #10

Re : Recupérer la colonne.

Rebonjour à tous,

Cette formule donne le numéro de colonne de la 7ème cellule :

Code:

=SOMMEPROD(N(SOUS.TOTAL(2;DECALER(A1;;;;COLONNE(A1:BR1)))<7))+1

Elle pèse plus lourd que la solution PETITE.VALEUR de mapomme (8 octets de plus) mais elle ne nécessite pas de validation matricielle.

Bien sûr pour obtenir la valeur de la 7ème cellule :

Code:

=INDEX(A1:BR1;SOMMEPROD(N(SOUS.TOTAL(2;DECALER(A1;;;;COLONNE(A1:BR1)))<7))+1)

A+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 6 Juillet 2013

• #11

Re : Recupérer la colonne.

Bonjour à tous,
Salut les amis,

🙂 Pour être sûr d'être toujours dans la liste de notre ami JJ1, une visualisation par MeFC :



A+ à tous

 

Pièces jointes

• Capture 1.png

  9.9 KB · Affichages: 88
• Capture 1.png

  9.9 KB · Affichages: 87

Dernière édition: 6 Juillet 2013

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 7 Juillet 2013

• #12

Re : Recupérer la colonne.

Bonjour

En ce qui concerne la solution avec la fonction créer sous, il fallait mettre la fonction dans un module de classe.
Il y avait un boulette, la fonction traiter les "" et pas les " "....

Dis moi ce que tu en pense stp!!

 

Pièces jointes

• trouve Nieme élements.xls

  37.5 KB · Affichages: 61
• trouve Nieme élements.xls

  37.5 KB · Affichages: 67
• trouve Nieme élements.xls

  37.5 KB · Affichages: 63

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Juillet 2013

• #13

Re : Recupérer la colonne.

Bonjour tbft,

Module de classe 😕

Perso je pense qu'on peut bien simplifier le code :

Code:

Function trouver_n(vecteur, numero)
For Each vecteur In vecteur
  If IsNumeric(CStr(vecteur)) Then trouver_n = trouver_n + 1
  If trouver_n = numero Then trouver_n = vecteur: Exit Function
Next
trouver_n = ""
End Function

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Juillet 2013

• #14

Re : Recupérer la colonne.

Re,

Ceci est un peu plus rapide :

Code:

Function trouver_n(vecteur, numero)
Dim v
vecteur = vecteur 'matrice, plus rapide
For Each v In vecteur
  If IsNumeric(CStr(v)) Then trouver_n = trouver_n + 1
  If trouver_n = numero Then trouver_n = v: Exit Function
Next
trouver_n = ""
End Function

A+

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 7 Juillet 2013

• #15

Re : Recupérer la colonne.

Perso je mets les fonctions perso dans les modules (simples)

Oups ré boulette module de classe je suis ridicule désolé

 

Dernière édition: 7 Juillet 2013

Vote positif 0 Vote négatif