Discussion :

[CmzxNene]

Bonjour,

Je cherche, par VBA, à inscrire dans une colonne les données résultant d'une formule qui se trouve dans une autre colonne.
Je sais qu'il faut utiliser une boucle mais je ne domine pas ce sujet.
Je joins un fichier test qui sera plus explicite.
je vous remercie de votre aide.

Cordialement

[patricktoulon]

bonsoir
j'ai regarder ton fichier ca m'a l'air trop simple
peut tu preciser le contexte

car si il n'y a pas de contrainte ou de cohérence requises avec les autre cellule
une simple variable tableau ou dictionaire fera l'affaire

[CmzxNene]

Bonsoir,

J'ai dans un onglet, des données quelconques..., et dans la dernière colonne une formule qui m'affiche l'ID de l'enregistrement si une condition est remplie.
Dans cette colonne, il y a donc des champs vides et des ID.

Je souhaite récupérer uniquement les ID en partant du haut de cette colonne et les inscrire dans un nouvel onglet en colonne A les uns en dessous des autres

Est-ce olus explicite ? et le contexte est-il compréhensible ?

Merci pour ton aide
Cdt

[Marc-L]

Bonjour, bonjour !

Pourquoi une boucle ?! Une formule de calculs est tellement plus efficace !

Comme demandé dans la pièce jointe, résultat en colonne F (la vider auparavant) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Demo()
    With Feuil1.Cells(1).CurrentRegion.Rows
        VA = .Item("2:" & .Count).Columns(3).Address
    End With
    With Application
        VA = .Transpose(Filter(.Transpose(Evaluate("IF(" & VA & ">""""," & VA & ")")), False, False))
    End With
    Feuil1.[F2].Resize(UBound(VA)).Value = VA
End Sub

_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[CmzxNene]

Bonjour Marc,

Merci pour ce code, mais cela ne marche uniquement si dans la colonne "C" ce sont les lettres,or il y a aussi des chiffres.
merci pour la suite.

En revanche, pourquoi une boucle ?
Tout simplement parce que je voudrais comprendre le fonctionnement d'une boucle qui extrait uniquement les données des champs de la colonne "C" si celui-ci n'est pas vide et les copier dans une autre colonne les uns en dessous des autres.

Merci pour l'aide
cordialement

[Marc-L]

Comme quoi ne pas effectuer une présentation initiale claire & exhaustive
accompagnée d'une pièce jointe reflétant la réalité est une perte de temps !

Maintenant, entraînes-toi à trouver une formule fonctionnant dans tous les cas (du niveau débutant)
puis la poster ici afin de te guider pour modifier ma procédure …
Sinon conformément aux règles du forum, commence à écrire ton propre code
à l'aide du tutoriel La gestion des boucles dans Excel.

[CmzxNene]

Marc,

Désolé, je pensais avoir été clair et j'avais même déposé un fichier test, même si effectivement je n'avais pas précisé que dans la colonne C il y aurait des lettres et des chiffres.
Bref, on s'améliore avec le temps....

Sinon, concernant ton code fourni (et je débute en VBA), j'ai bien compris ce à quoi correspondait la valeur retournée de VA, mais je ne comprend pas cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    VA = .Transpose(Filter(.Transpose(Evaluate("IF(" & VA & ">""""," & VA & ")")), False, False))

Pourrais-tu me l'expliquer action par action ?
J'ai fait un test et si dans ma colonne C il y des lettres et des chiffres, il n'inscrit que les lettre et s'il n'y a que des chiffres, j'ai un message d'erreur "Incompatibilité de type".
J'ai cherché mais je ne trouve pas.
Merci
@+
_

[Marc-L]

Formule dans la cellule D2 =SI(C2>"";C2) à recopier jusqu'en D11.

La ligne de code utilise cette formule (en matricielle sur la plage des cellules) et ne retient pas celles fausses.
Et sans message d'erreur de mon côté avec un nombre : entreprendre alors un code avec une boucle …