Incrémentation de ligne

Bonjour à tous,

Dans le cadre de mon travail, je dois réaliser un travail sur Excel utilisant les macros. Cependant mes connaissances sont relativement limitées et de ce fait je me suis retrouvé rapidement bloqué...

Je dois réaliser un ficher "Perte de maitrise" avec la date de début et de fin de l'évènement et surtout les équipes de quart présentent devront compléter l'évènement en lui même. Pour ce faire, j'ai fait ceci en macros:
(EXEMPLE POUR UNE CAUSE 1)

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Cause_1() 'Choisir cause 1 Range("A2").Select 'Choisi cause 1' Selection.Copy 'Copier' Sheets("Palettiseur").Select 'Aller dans feuille Palettiseur' Range("E2").Select 'Ne colle que en E2...' ActiveSheet.Paste 'Coller' End Sub

---

Je souhaiterai que si la case "E2" (la case des causes) est déjà complétée (qu'une cause ultérieure à déjà été mentionnée), la macro choisisse la ligne suivante ("E3")... Mais comment faire ?

Merci d'avance de votre aide !

Pour répondre à ta question :

Code:

---

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

Sub Cause_1()   'Choisir cause 1 Range("A2").Select 'Choisi cause 1' Selection.Copy 'Copier' Sheets("Palettiseur").Select 'Aller dans feuille Palettiseur' If Not IsEmpty(Range("E2")) Then Range("E3").Select 'Ne colle que en E2...' ActiveSheet.Paste 'Coller' Else Range("E2").Select 'Ne colle que en E2...' ActiveSheet.Paste 'Coller' End If End Sub

---

Après, si tu veux extrapoler (rajouter une boucle pour mettre ta valeur dans la dernière ligne non vide de la colonne E par exemple), c'est encore autre chose ;)

Bonjour,

Et s'il y a quelque chose en E3 ?

Ne serait-ce pas plutôt la première cellule vide de la colonne E:E que le questionneur souhaite trouver ?

Cordialement,

Merci pour ta réponse rapide illight !

Mais effectivement, je souhaite que cela se mette automatiquement dans la dernière ligne non vide de la colonne E.

Essaye un truc comme ça (non testé) :

Code:

---

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

Sub Cause_1()   'Choisir cause 1 Range("A2").Select 'Choisi cause 1' Selection.Copy 'Copier' Sheets("Palettiseur").Select 'Aller dans feuille Palettiseur' i = 2 Do While Not IsEmpty(Range("E" & i)) i = i + 1 Loop Range("E" & i).Select ActiveSheet.Paste   End Sub

---

It works! Merci beaucoup illight, tu m'enlèves une sacrée épine du pied ;).

Quelle idée de marcher sur des roses :roll: :aie: