Discussion :

[chalou33]

Bonjour,
je travaille sur un projet permettant de modifier un fichier afin de le rendre plus ergonomique.
Pour cela je doit faire appel au Macro. Cette Macro doit permettre de créer une ligne supplémentaire et de transférer des donnés sur la ligne précédente dans cette nouvelle ligne sur l'ensemble du document (CF PJ pour mieux comprendre) à condition qu'il y ai un R, un C ou un F en bout de la ligne.

Après deux jours de travail acharné, je n'ai pas bougé d'un iota.
Pouvez-vous m'aider SVP ?

Merci par avance.

[Kimy_Ire]

Bonjour chalou33,

Hum... pourtant, ce que tu demandes est facilement trouvable sur le net.
Je te donne le début :

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
17
Option Explicit
 
Sub chalou33()
Dim oRng As Range
Dim i As Integer
 
With Worksheets("Feuil1")
    Set oRng = .Range("P1")
    For i = 1 To .Columns(16).Find("*", , , , , xlPrevious).Row - 1
        If oRng.Offset(i, 0) = "R" Or oRng.Offset(i, 0) = "C" Or oRng.Offset(i, 0) = "F" Then
            'je fais ce que je veux ! =)
        End If
    Next i
 
End With
 
End Sub

Utilise l'enregistreur de macro. Ca te permettra d'avancer !

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

[chalou33]

Merci beaucoup. Ce n'est pas trop la mise en forme qui me dérange. C'est plutôt la condition.
En faisant passer les lignes en dessous si R-C ou F.

Ca fonctionne avec ce que tu m'as donné ?

[Kimy_Ire]

chalou33,

Ce n'est pas très clair.
Ce que je t'ai donné correspond à la condition sur la colonne n°16. Pour chaque cellule, je test la valeur.

Place un MsgBox oRng.Offset(i, 0) à la place de mon commentaire 'je fais ce que je veux ! =) et regarde ce que ça donne.

Cordialement,
Kimy

[chalou33]

Je ne souhaite pas un message Box mais que ma ligne devienne un bloc à condition qu'il y ai un R-C-F en bout de cette même ligne.
Comme dans ma pièce jointe.

[chalou33]

Re-Bonjour,
je travaille désespérément sur cette macro depuis maintenant plusieurs jours.
Et la condition ne fonctionne toujours pas. Et je ne sais pas comment appliquer la mise en forme à toutes les cellules concernées lorsqu'il y a réalisation de la condition.

J'ai identifié différents problèmes comme vous pouvez le voir dans l'analyse de macro en PJ.
Les informations surlignées en rose sont celles qui bloquent l'application de cette mise en forme si la condition est respectée.
De plus je ne suis pas sûr que l'insertion soit correctement écrite.
En effet, je souhaite que la ligne s'intègre en dessous de celle où figure le F-C ou R.
Idem pour la mise en gras de la cellule.

Et pour arranger les choses, la conditions bug comme noté dans l'analyse.

Je suis au fond du gouffre. Et pour achever le tout, on vient de m'annoncer que cela devait fonctionner pour demain soir au plus tard.
Pouvez-vous m'aider SVP car là je suis complètement bloquée !!??

Merci par avance.
Charlène

Ps : en PJ vous trouverai la macro, le fichier original à transformer et mon analyse.