Faire un Copier/collé en fonction de la cellule suivante

[chuinul]

Bonjour a tous,

J'ai besoin de faire une macro pour recouper des données, je bloque sur la fin, et j'aurais bien besoin de votre aide.

J'ai un liste de serveurs, dont certain sont en double, si ils sont en double, celui dont la colonne F est vide a sa ligne en blanc, si la collone F est rempli, sa ligne est en orange. bon...

Ce que je voudrais c'est parcourir la colonne F, vérifier si la ligne suivante est colorié (si oui : il sagit du même serveur), et si c'est c'est le cas copier la "tâche" dans la case précédente....

Concrètement : d'après le fichier joint, je voudrais qu'il me copie F4 dans F3, puis qu'il me copie F6 dans F5 (F5 et F3 devront rester en blanc (remplissage))...et le tout en laissant F2,F7 & F8 vide.

Ensuite, je voudrais reparcourir ce fichier pour effacer les lignes qui sont coloriés (ça on me l'a déja expliqué, je devrais pouvoir m'en sortir)

Merci d'avance

 

[porcinet82]

Re : Faire un Copier/collé en fonction de la cellule suivante

Salut,

Pour faire ce que tu souhaites, voici le code a appliquer (sans la suppression des lignes colorées) :

For i = 2 To Range("A65536").End(xlUp).Row
    If Cells(i, 1).Interior.ColorIndex = 40 Then Cells(i - 1, 6).Value = Cells(i, 6).Value
Next i

@+

 

[Gorfael]

Re : Faire un Copier/collé en fonction de la cellule suivante

Salut,

Pour faire ce que tu souhaites, voici le code a appliquer (sans la suppression des lignes colorées) :

For i = 2 To Range("A65536").End(xlUp).Row
    If Cells(i, 1).Interior.ColorIndex = 40 Then Cells(i - 1, 6).Value = Cells(i, 6).Value
Next i

@+

Salut
Pour faire différemment de porcinet82, Na 😛

Une MFC sur les colonnes A à F
Un simple tri sur les tâches te permet de visualiser les lignes colorées vides en F
A+