Discussion :

[Blend]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[illight]

Pour répondre à ta question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nibledispo]

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,

[Blend]

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.

[illight]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Blend]

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