Recherche cellule et mettre info dans la premiere cellule vide

Résolu

croky23 Messages postés 11 Date d'inscription dimanche 26 novembre 2006 Statut Membre Dernière intervention 24 avril 2009 - 19 avril 2009 à 11:36
croky23 Messages postés 11 Date d'inscription dimanche 26 novembre 2006 Statut Membre Dernière intervention 24 avril 2009 - 19 avril 2009 à 14:19

Bonjour le forum

je suis débutant et je rame un peu

voici mon soucis

J'ai une info à rentrer par userform dans une autre page

ex le nombre d'un produit fabriqué selon le code du produit

sur cette page j'ai plusieurs codes sur une même ligne

j'ai donc mis ce code

Code :
[C5:R5].Find(C_code, LookIn:=xlValues).Select

et cela me sélectionne bien le bon code mais je voudrai que le
nombre de produits fabriqués se mette toujours dans la dernière cellule
vide de cette colonne

merci de votre aide

bonne journée

croky23

A voir également:

Recherche cellule et mettre info dans la premiere cellule vide
Vba dernière cellule non vide - Forum VBA Office (Excel, Word ...)
Vba copier valeur cellule dans une autre feuille ✓ - Forum Visual Basic
Selectionner la derniere cellule non vide d'une colonne excel vba ✓ - Forum VB.NET
Vba test cellule vide ✓ - Forum Visual Basic
Tester si colonne d'un classeur Excel est vide - Forum Visual Basic

10 réponses

Réponse 1 / 10

pile_poil Messages postés 682 Date d'inscription vendredi 6 avril 2007 Statut Membre Dernière intervention 4 août 2012 6
19 avril 2009 à 12:17

et pour écrire ta valeur tu fais
Cells(nblignes,nbcolonnes) = TaValeur

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

Réponse 2 / 10

pile_poil Messages postés 682 Date d'inscription vendredi 6 avril 2007 Statut Membre Dernière intervention 4 août 2012 6
19 avril 2009 à 14:03

si tu n'a que si peu de cellules a tester autant faire un truc tout simple
For nbcolonnes 3 To 18 ' 3 C , 18 = R
    If Cells(5, nbcolonnes ) = C_code Then
        nblignes = Cells(65536, Nbcolonnes).End(xlUp).Row + 1
        Cells(nblignes, Nbcolonnes) = Val(Me.t_parpaingf)
        Exit For
    End If
Next nbcolonnes
if nbcolonnes >18 then msgbox "le code demandé n'existe pas "

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

Réponse 3 / 10

pile_poil Messages postés 682 Date d'inscription vendredi 6 avril 2007 Statut Membre Dernière intervention 4 août 2012 6
19 avril 2009 à 11:43

bonjour
pour trouver la dernière ligne du tableau contenant une donnée
faut partir d'en bas et remonter :
NbLignes = Range("A65536").End(xlUp).Row
donc ta cellule de destination sera sur le rang
NbLignes +1
[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

Réponse 4 / 10

croky23 Messages postés 11 Date d'inscription dimanche 26 novembre 2006 Statut Membre Dernière intervention 24 avril 2009
19 avril 2009 à 11:49

Merci de cette réponse rapide
Mais dans mon cas ce n'est pas toujours la même colonne
cela dépend du code recherché

cette formule me trouve le code donc le titre de la colonne
[C5:R5].Find(C_code, LookIn:=xlValues).Select

je désire donc entrer une info en dessous de ce titre de colonne derneire cellule libre
merci

croky23

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

Posez votre question

Réponse 5 / 10

pile_poil Messages postés 682 Date d'inscription vendredi 6 avril 2007 Statut Membre Dernière intervention 4 août 2012 6
19 avril 2009 à 12:11

dans ce cas fais
nbcolonnes = Cells.Find(C_code, , xlValues, , , xlByColumns, xlPrevious).Column
nbLignes = Cells(65536, nbcolonnes).End(xlUp).Row + 1

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

Réponse 6 / 10

croky23 Messages postés 11 Date d'inscription dimanche 26 novembre 2006 Statut Membre Dernière intervention 24 avril 2009
19 avril 2009 à 12:33

désolé cela ne fonctionne pas

croky23

Réponse 7 / 10

croky23 Messages postés 11 Date d'inscription dimanche 26 novembre 2006 Statut Membre Dernière intervention 24 avril 2009
19 avril 2009 à 12:39

merci beaucoup cela fonctionne tres bien

croky23

Réponse 8 / 10

pile_poil Messages postés 682 Date d'inscription vendredi 6 avril 2007 Statut Membre Dernière intervention 4 août 2012 6
19 avril 2009 à 12:42

"cela ne fonctionne pas" ne veut rien dire
mets ici ton code
en précisant la ligne où se produit l'erreur , le numero et la description de l'erreur
sinon ma boule de cristal ne peut rien pour toi
le code que je t'ai donné fonctionne parfaitement ( je l'ai testé avant de te le donner )

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

Réponse 9 / 10

croky23 Messages postés 11 Date d'inscription dimanche 26 novembre 2006 Statut Membre Dernière intervention 24 avril 2009
19 avril 2009 à 12:47

Réponse 10 / 10

croky23 Messages postés 11 Date d'inscription dimanche 26 novembre 2006 Statut Membre Dernière intervention 24 avril 2009
19 avril 2009 à 14:19

grand merci c'est parfait
merci encore te tres bonne journée
croky23

Discussions similaires

Macro: Detecter si une cellule est vide.HELP

Dernière cellule non vide d'une colonne

Couleur de fond d'une cellule excel

Derniere cellule remplie d'une colonne

Selection derniere cellule non vide plage cellule Excel

Votre réponse

Discussions similaires