Problème pour autre boucle

Version imprimable

Bonjour, Je suis pas un champion du monde de macro, suite a ce fait, j'aimerai votre aide si cela vous est possible.

Voilà ma problématique:
Mes données d'entrée sont celles-ci:
Code:

1 2 3 4 5 6 7 8 9 10 If Sheets("Listing Consultation").Range("C2").Value = "" Then Sheets("Listing consultation").Range("C2").Value = b Sheets("Listing consultation").Range("D2").Value = c Sheets("Listing consultation").Range("A2").Value = d Sheets("Listing consultation").Range("B2").Value = e ElseIf Sheets("Listing consultation").Range("C3").Value = "" Then Sheets("Listing consultation").Range("C3").Value = b Sheets("Listing consultation").Range("D3").Value = c Sheets("Listing consultation").Range("A3").Value = d Sheets("Listing consultation").Range("B3").Value = e
L'objectif est de pouvoir mettre ce code jusqu'à la cellule C65536 sans avoir a recopier a chaque fois toutes ces ligne de macro en changeant uniquement la cellule.
...
Code:

1 2 3 4 5 6 ElseIf Sheets("Listing consultation").Range("C65536").Value = "" Then Sheets("Listing consultation").Range("C65536").Value = b Sheets("Listing consultation").Range("D65536").Value = c Sheets("Listing consultation").Range("A65536").Value = d Sheets("Listing consultation").Range("B65536").Value = e End IF
Comment puis je faire?

Merci pour votre aide.

tmk21fr.

Bjr,
en fait le code par lui même n'est pas très compliqué et sur le forum il y a de nombreux exemples de ce que tu souhaites réaliser. Le code ci-dessous fait exactement ce que tu souhaites.
Toutefois es-tu vraiment obligés d'examiner toutes les lignes de ta feuille et de remplir toutes ces lignes?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub essai() Dim i As Long Sheets("Listing consultation").Activate For i = 2 To 65536 If Range("C" & i) = "" Then Range("C" & i).Value = "b" Range("D" & i).Value = "c" Range("A" & i).Value = "d" Range("B" & i).Value = "e" End If Next i End Sub
A+

EDIT: Pour ce que tu souhaites faires l'utilisation dans la boucle du Elseif n'est pas necéssaire car si il y a une donnée dans la cellule C alors il sort du if et passe a la boucle suivante: EX si C2=3 alors la macro passe directement à C3 et vérifie son contenu ainsi de suite....

Merci rvtoulon.

En fait, je dois remplir le document au fur et a mesure que nous avons des nouvelles demandes.
Pour etre sur de ne pas oublier de remplir à la main, je veux qu'il le fasse en automatique.
Effectivement je n'utiliserai peut etre pas ttes les lignes, mais vu que l'on peux avoir 5 demandes par jours, tu imagine ce que ca fera sur 1 ans.

Il y a peut être une autre solution, si tu as une idée, n'hésite pas. Je te met ma macro ci dessous pour que tu comprenne le besoin.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 g = MsgBox("ATTENTION! LA MAITRISE DE CONSULTATION DOIT ETRE SEPAREE D'1 MINUTE MINIMUM!! RISQUE D'UN MEME NUMERO DE DOSSIER POUR 2 PROJETS", vbInformation) b = InputBox("Veuillez renseigner le nom complet du client", "Nom Client", Range("B6").Value) c = InputBox("Veuillez renseigner le nom du projet", "Désignation Projet", Range("C10").Value) Sheets("Maitrise consultation").Select Range("C10").Value = c Range("B6").Value = b D = Range("C4").Value e = Range("D4").Value Dim i As Long Sheets("Listing consultation").Activate For i = 2 To 65536 If Range("C" & i) = "" Then Range("C" & i).Value = "b" Range("D" & i).Value = "c" Range("A" & i).Value = "d" Range("B" & i).Value = "e" End If Next i Sheets("Maitrise consultation").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Pour information, la numérotation automatique se fait par 2 cellule, une avec la date à l'envers (aammjj) et la seconde avec l'heure (hhmm).
Si l'a également tu as une idée, je suis preneur, car cela me convient qu'a moitier, mais je suis un peu nouveau dans VB.

Merci d'avance.

Toutefois es-tu vraiment obligés d'examiner toutes les lignes de ta feuille et de remplir toutes ces lignes?

En fait, je n'ai pas besoin de remplir toutes les lignes, je dois simplement remplir la première ligne qui n'est pas remplis:
Exemple Ligne D rempli, alors on vérifie que la E n'est pas rempli, si elle n'est pas rempli, on mets les infos voulu, sinon, on passe à la ligne E
Etc. etc. jusqu'à ce que l'on trouve la ligne pas rempli.

Le code ci dessous rempli toutes les lignes, et moi j'ai besoin qu'elle n'en remplisse qu'une seule: la remière où il n'y a pas de données.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub essai() Dim i As Long Sheets("Listing consultation").Activate For i = 2 To 65536 If Range("C" & i) = "" Then Range("C" & i).Value = "b" Range("D" & i).Value = "c" Range("A" & i).Value = "d" Range("B" & i).Value = "e" End If Next i End Sub
Merci d'avance pour votre aide.

tmk21fr

Re,
le probleme n'est plus le même :)
donc si je comprend en fait tu souhaites simplement lorsqu'une demande est faite l'inscrire dans ta feuille Listing consultation les unes à la suite des autres, c'est çà?

Est-ce qu'il peut y avoir plusieurs fois le même nom dans la colonne C ou pas.
ex: Le client untel a fait une demande en sept. Le même client fait une demande en oct.

Les demandes sont-elles faites une par une? (un client à la fois)

si c le cas alors ce n'est pas la peine de faire une boucle ni un if il faut juste insérer les infos à la suite des autres dans la feuille. Pour faire cela remplace le code que je t'ai donné par celui ci dans ton code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim derlign As Long Sheets("Listing consultation").Activate 'ici on recherche la dernière ligne utilisée de la colonne C et on va à la ligne 'suivante derlign = Range("C65536").End(xlUp).Row + 1 Range("C" & derlign).Value = b Range("D" & derlign).Value = c Range("A" & derlign).Value = d Range("B" & derlign).Value = e
dis moi si j'ai vu juste
A+

24/12/2009, 10h44
tmk21fr

Oui, tu as bien compris.
Effectivement un même client peu nous demander plusieurs projets.

Ton code à faits des miracle et il réponds exactement a ce que j'attendais.

Merci beaucoup.:P

As tu une idée sur une numérotation automatique?
Je t'explique:

A chaque ligne rempli, je veux qu'il me mette une numérotation automatique du type:

091123 001
091123 002

Ce qui signifie 091123 = 23 nov 2009
001 = la première consultation du 23 nov 2009

Connais une formule qui pourrais me faire ça?8O

si tu as une autre idée, n'hésite surtout pas; 2 tête valent mieux qu'1...

Merci d'avance.

tmk21fr

Merci d'avance?
24/12/2009, 11h20
rvtoulon

Citation:

091123 001
091123 002

Ce qui signifie 091123 = 23 nov 2009
001 = la première consultation du 23 nov 2009

Ou se trouve cette date? est-ce que La variable d= 091123 et e=001 ?

pour le résulat sont-elles dans deux cellules séparées ex: A1 pour la date et B1 pour 001
ou dans une seule ex: B1 = 20091123 001 ?

peux-t-on avoir un peu plus de renseignement ?
merci
24/12/2009, 11h27
tmk21fr

En fait voila ce que j'ai aujourd'hui:

091123 (aammjj sous excel) = c
1224 (hhmm sous excel) = e

Je souhaiterai si possible
091123 ne pas changer
1224 (e) à remplacer par 001, 002, 003 qui correspondrait à une numérotation automatique sur une même date (c); pour reprendre à 001 quand il y a un changement de date (c).

tmk21fr
24/12/2009, 16h32
rvtoulon
d'apres ton code,
Code:

1 2 3 4 5 6 Sheets("Maitrise consultation").Select Range("C10").Value = c Range("B6").Value = b d = Range("C4").Value e = Range("D4").Value
Tu donnes a la cellule C10 de la feuille "maitrise ..." la valeur de la variable "c" que tu renseigne par une inputbox. Idem pour "b"
Par contre tu donnes a la variable "d" la valeur de la cellule C4 et "e" la valeur de la cellule D4

question: Que contiennent ces cellules (C4) et (D4)
Si j'ai déviné C4 = Date inversé et D4 heure. peux-tu confirmer?

Ensuite toujours dans ton code :
Code:

1 2 Range("A" & derlign).Value = D Range("B" & derlign).Value = E
Tu donnes aux cellules A & B Les valeurs de ces variables, certainement pour faire ton numéro auto.

Autres questions: ton numéro auto doit-il remplir la cellule A et B ou faut-il regrouper les deux variables dans une seule cellule
ex: A=20091123 et B= 001 Ou voudrais-tu B=20091123 - 001

perso pour plus de faciliter je t'encourage de remplacer 001 directement par 1
ce qui donnerais un numéro comme 20091123 - 1.

j'attends tes précisions pour ne pas avoir a refaire le code ;)

A+

Slt

J'ai un peu de temps alors voici un code qui insére un numéro auto dans la colonne B sous ce format :
091230 - 1

Il recherche dans la colonne si ce numéro existe, et si il existe il s'incrémente de 1 donc : 091230 - 2 etc....

il te faut remplacer ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim derlign As Long
 
Sheets("Listing consultation").Activate
'ici on recherche la dernière ligne utilisée de la colonne C et on va à la ligne 
'suivante
derlign = Range("C65536").End(xlUp).Row + 1
 
Range("C" & derlign).Value = b
Range("D" & derlign).Value = c
Range("A" & derlign).Value = d
Range("B" & derlign).Value = e

par celui-ci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Dim derlign As Long
Dim num1 As String, num2 As Long
 
Sheets("Listing consultation").Activate
derlign = Range("C65536").End(xlUp).Row + 1
 
num1 = Format(Date, "yymmdd")
num2 = 1
 
For i = 2 To derlign
numauto = num1 & " - " & num2
If Range("B" & i).Value = numauto Then
num2 = num2 + 1
 
ElseIf Range("B" & i).Value = "" Then
Range("B" & i).Value = numauto
Range("C" & i).Value = b
Range("D" & i).Value = c
num2 = num2 + 1
End If
 
Next i

Est-ce que ceci te convient ?

A+