High-Tech Santé Médecine Droit-Finances

Réalisation

vidéo numérique

Rechercher : dans
Par :

[Excel VBA] Remplir 1ere cell vide dune ligne

Dernière réponse le 24 fév 2009 à 16:41:18 Gorion87, le 24 fév 2009 à 12:37:03 
 Signaler ce message aux modérateurs

Bonjour,

Je souhaiterai que à partir de ce tableau : 

N° Dossier  Client  Position  TI / RN  N°  Devise        Dates	Montant PG      Gestionnaire
00125487	  Client A   PA        RN     5    EUR    01/12/2008	10 000,00		
00546987	  Client B   PA        RN	     2  EUR  01/01/2009	20 000,00	
00654548	  Client C   PA        RN	     3  EUR  01/02/2009	30 000,00		
00332148	  Client D   PA        RN	     5  EUR  01/03/2009	40 000,00		
00547344	  Client E   PA        RN	     5  EUR  01/04/2009	50 000,00
,00

La colonne Gestionnaire se remplisse du nom du gestionnaire ex : "Bibi".

Ainsi que la première cellule vide à droite de la ligne remplie, qu'il y ait écrit "Bibi" dedans !!!

Merci pour votre aide
Configuration: Windows 2003
Internet Explorer 6.0

Posez votre question Répondre

1

lermite222, le 24 fév 2009 à 12:42:21

Bonjour,
et "bibi".. il est saisi comment ? ce serais aussi façile de l'inscrire directement dans la 1ère cellule vide ?
Pourquoi une macros ?
Tu dis... L'expérience instruit plus sûrement que le conseil. (André Gide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

   
Répondre à lermite222

2

Gorion87, le 24 fév 2009 à 13:51:23

En fait se serait pour l'intégrer à une macro deja existant qui regroupe les diverses informations et que lors de l'execution il se rajoute automatiquement le nom du gestionnaire dans la dernière colonne !!!

   
Répondre à Gorion87

3

Le Pingou, le 24 fév 2009 à 15:17:16

Bonjour,
En supposant que "J" soit la colonne concernée vous mettez suivante au bonne endroit dant la macro :
Cells(numéro de la ligne, 10).value = "bibi"
Salutations.
Jean-Pierre

   
Répondre à Le Pingou

4

Gorion87, le 24 fév 2009 à 16:02:09

Il faudrait en fait que la programmation reconnaisse la première cellule vide au bout de chaque ligne remplie afin d'y inscrire le nom du redacteur !!!

Ce que tu me proposes m'oblige à rentrer chaque ligne à la main !!

du style :

Cells(3, 10).value = "bibi"
Cells(4, 10).value = "bibi"
Cells(5, 10).value = "bibi"

   
Répondre à Gorion87

6

Le Pingou, le 24 fév 2009 à 16:32:59

Bonjour,
Ce que vous dites est faux.
Une fois entrer cette ligne de code dans votre macro à l'endroit adéquat, c'est la macro qui le fera.
Par contre c'est à vous de le mettre au bon endroit et aussi de préciser le n° ligne.
Salutations.
Jean-Pierre

   
Répondre à Le Pingou

5

michel_m, le 24 fév 2009 à 16:19:41

Re, boujour Llhermite,Jean-pierre

pour la première colonne vide en fin de tableau

pour la ligne 3 par ex
dim descol as byte
dercol= range("IV3").end(xktoleft).column+1

te donne le numéro de la colonne Le forum est basé sur le partage de connaissances:Je ne réponds donc pas à des questions techniques par message privé.
Cordialement, Michel

   
Répondre à michel_m

7

 michel_m, le 24 fév 2009 à 16:41:18

Re gorion, bnjour Lhermite, jean Pierre

numéro de la 1° colonne vide à droite du tableau:
la ligne est la variable lig
dim dercol as byte
dim lig as long

dercol=range("IV" & lig).end(xltoleft).column + 1 Le forum est basé sur le partage de connaissances:Je ne réponds donc pas à des questions techniques par message privé.
Cordialement, Michel

   
Répondre à michel_m
Posez votre question Répondre
Ils ont besoin de votre aide