[VBA-excel] Affecter une date à la première cellule pleine

Bonjour,

Explication/Exemple :

Je suis à la ligne 10 colonne G, je cherche la première cellule pleine de cette ligne, j'arrive donc à la ligne 10 colonne Z. Arrivé là, je veux lire la date (situé à la ligne 5 de cette même colonne). Je veux copier cette date et la coller à la ligne 10 colonne B.

Il peut y avoir 1000 lignes, l'objectif final est de faire un tri par date de la colonne B.


Aidez moi s'il vous plait,

merci



ETAT D'AVANCEMENT : 100% :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub datedébut()   'lecture de la première cellule pleine d'une ligne   Dim i, j As Variant   For i = 15 To 1000   For j = 7 To 255   If Cells(i, j).Value <> "" Then Exit For   Next j   'Affecter la valeur X de la cellule Y à partir de la cellule Z   datecherchee = Cells(8, j).Value 'cellule Z Cells(i, 5).Value = datecherchee 'cellule Y   Next i   End Sub

---

C'est pas très clair ta question

tu veux pas montrer un peu ton code?

C'est en cours mais j'ai du mal à commencer...

Je le mets dès que ca ressemble à quelque chose ;)

en fait ton objectif c'est de parcourir ta feuille (de long en large ou de haut en bas?)

Code:

---

1 2 3 4 5 6

Dim i as Integer i = 1 Do i = i+1 Loop Until thisWorkbook.sheets("MaFeuille").cells(i,1) <> ""

---

Je parcours mon classeur de ligne en ligne, à chaque ligne, il y aura une date à affecter...

Merci de ton aide en tout cas, je crois que je me complique la vie :p

Salut DVano,
Si j'ai bien compris ce que tu veux faire je te conseille déjà de partir de la fin de ta liste de céllule sinon tu va parcourir toute la feuille excel et ça va te prendre du temps pour rien :

Code:

---

Set MaCellule = Range("A65536").End(xlUp)

---

ensuite tu peux utiliser une boucle pour parcourir toute les cellules de ta feuille du style

Code:

---

1 2 3 4 5 6

Compteur = MaCellule.Row For i = 0 To Compteur - 1 If MaCellule.Offset(-i, 0).Value <> "" Then MaCellule.Offset(-i, 0).Value = Date End If Next i

---

Bon, je vais éclaircir au maximum ma situation :

Je travail sur un planning, j'ai donc un calendrier, des ressources et des taches affectées à ses ressources...

Chaques lignes correspond à une tâches, cette tâche commence le XX/XX/XX, c'est la première cellule pleine (soit la date de début tâche) que je veux affecter dans une autre cellule...

Voici l'avancement du code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub datedébut()   Dim i As Integer i = 15 'la cellule ou commence la lecture ? Do i = i + 1 Loop Until ThisWorkbook.Sheets("MaFeuille").Cells(i, 7) <> "" ' 7 correspond à la colonne de début de lecture ?       End Sub

---

Je me rends compte que je suis vraiment débutant...

Bon je vais potasser un peu (voir beaucoup) je ferai un état d'avancement...

Un petit conseil

je sais pas si tu connait ca mais si tu veux connaitre le mieux les objet et les méthode de Excel, il existe un enregistreur de macro qui te génere le code de l'action qui tu effectue.

Tu le trouveras dans la barre d'outils Visual Basic (le bouton enregistrer)

Ne te fie pas trop au code généré (qui est tres vite lourd) mais regarde bien les objets et les propriétés utilisées, beaucoup de choses peuvent devenir plus clairs et comment on les utilise.

Si tu veux un peu d'exemples de l'utilisations des objets en Excel, regarde dans cette discussion, le message 11.
Tu devrais y trouver un peu d'info sur le parcours de cellules de 2 manières différentes, par index et par parcours de Range.

Merci pour les infos :p

3615 ma life :
Je viens de reprendre un lourd programme VBA (plus de 35 pages une fois remit sur papier)... Je travail sur ce programme depuis un mois et ca fait donc un mois que je manipule VBA. J'ai aussi achetez un bouquin histoire d'apprendre les bases et plus... J'ai déjà résolu beaucoup de problème, ajouter/modifier des actions mais quand il s'agit de partir de zéro, je galère. C'set clairement les bases qui m'empeche d'avancer. (dans mon bouquin, j'en suis qu'a la page 15 :p ) Ca ira mieux quand je l'aurai fini :)

J'ai du nouveau mais pas trop de temps :p

Code:

---

1 2 3 4

Sub AA() 'Sélection de la première cellule pleine de la ligne 1 [A1].End(2).Select End Sub

---

Voici comment selectionner la première cellule pleine d'une ligne...

Ca avance :)

Bon, voilà ou j'en suis...

Je cherche la première cellule pleine d'une ligne :

Code:

---

1 2 3 4 5 6

Sub datedébut()   For i = 15 To 1000   'Sélection de la première cellule pleine de la ligne 1 Cells(i, 7).End(2).Select

---

Ca, c'est bon. Ensuite, je récupère l'adresse de la colonne :

Code:

---

ActiveCell.Columns

---

Déjà là, quand je lance la macro j'ai un probléme à ce niveau là,

-> Utilisation incorrect de la propriété

Mais bon, c'est peut être parce qu'il y a pas de code derrière...

Je souhaiterai ensuite copier la valeur de la cellule d'on voici les coordonnées :

Code:

---

Thisworkbook.Cells(i, valeur récupérer précedemment).copy

---

Le problème est là, je ne sais pas donné la valeur de la colonne, peut être faut il la mettre dans une variable mais je ne sais pas comment faire...

Si vous avez réussi à me suivre et que vous avez la solution, merci à vous :)

Sinon, une autre solution pour trouver la ligne ou il y a quelquechose : tu fais une boucle :

Code:

---

1 2 3 4 5

i = 1 while cells(i,7).value = "" i = i + 1 Wend

---

Le 'i' représente alors la ligne ou tu as une donnée :D


Par contre je comprend pas pourquoi tu veux récupérer l'adresse de la colonne, alors que tu cherche la première ligne pleine :marteau:

Explication/Exemple :

Je suis à la ligne 10 colonne G, je cherche la première cellule pleine de cette ligne, j'arrive donc à la ligne 10 colonne Z. Arrivé là, je veux lire la date (situé à la ligne 5 de cette même colonne). Je veux copier cette date et la coller à la ligne 10 colonne B.

Il peut y avoir 1000 lignes, l'objectif final est de faire un tri par date de la colonne B.

J'espère avoir été clair :)

Ayéééééééé j'ai comprendu :mrgreen: donc me suis trompé dans mon code lol. C'est plutot comme ça qu'il faut l'écrire :

Code:

---

1 2 3 4 5 6 7

j = 1 while cells(10,j).value = "" j = j + 1 Wend 'le j obtenu correspond a la colonne cherchee datecherchee = cells(5,j).value cells(10,2).value = datecherchee

---

Un truc dans ce genre la je pense marche :)
Après il faut peut-être que tu mette en forme les dates en utilisant des DateValue et autre, mais je te donne surtout l'idée principale :)

Bon, y a un net progrès

merci

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub datedébut()   Dim i, j As Variant   For i = 15 To 1000 j = 7   While Cells(i, j).Value = ""   j = j + 1 Wend 'le j obtenu correspond a la colonne cherchee datecherchee = Cells(8, j).Value Cells(i, 5).Value = datecherchee     Next i   End Sub

---

Seulement voilà, j'ai une erreur ici :

Code:

---

While Cells(i, j).Value = ""

---

avec j = 257 erreur logique puisqu'il y a que 256 colonnes... Ou dois je mettre un "For j = 7 to 256" ?

J'ai essayé de le placé dans le while et dehors et ca marche pô (j'ai pas oublié le next j :) )

Ah oui effectivement j'ai oublié de soulever le cas ou ta ligne était vide, car c'est pour ça que arrivé a 256 il bloqué, puisque ta ligne est vide :)

DOnc oui soit tu fais un for tout bete avec un Exit for :

au lieu de :

Code:

---

1 2 3 4

While Cells(i, j).Value = ""   j = j + 1 Wend

---

tu écris un truc de ce genre :

Code:

---

1 2 3 4

for j = 1 to 255 if cells(i,j).value <> "" then exit for next j

---

Normalement ça devrait marcher tout aussi bien :)

Bon week end, moi je m'en vais :mrgreen:

Merci, je vais testé ca, bon week

Et merci encore ;)

Problème résolu...

Merci à illight :)