Macro: Si colone"D" contient "Message" alros colone"C" = "".....j'y arrive pas :(

[sim]

Bonjour,

J'ai ecrit ces deux ligne de code mais je n'y arrive pas....est ce que quelqu'un pourrait m'indiquer la bonne redaction

If .Range("D") = "No Royalty" Then
.Range("C") = ""
End If

Merci d'avance 🙂

Sim

 

[Pierrot93]

Re : Macro: Si colone"D" contient "Message" alros colone"C" = "".....j'y arrive pas :

Bonjour,

il faut préciser le numéro de ligne concernée..; a moins que tu veuilles faire une boucle... exemple ci-dessous :

Dim i As Long
With Sheets("nomfeuille")
    For i = 1 To 100
        If .Range("D" & i) = "No Royalty" Then .Range("C" & i) = ""
    Next i
End With

bon après midi
@+

 

[Softmama]

Re : Macro: Si colone"D" contient "Message" alros colone"C" = "".....j'y arrive pas :

Bonjour,

pas certain de tout avoir compris, mais essaie ceci :

Sub test()
Tabl = Range("D:D").Value
On Error GoTo 1
Range("C" & Application.Match("No Royaltee", Tabl, 0)) = "": exit sub
1 MsgBox "Pas trouvé 'No Royaltee' en colonne D"
End Sub

 

[sim]

Re : Macro: Si colone"D" contient "Message" alros colone"C" = "".....j'y arrive pas :

Bnjour Pierrot!! 🙂, le forum

Enfait, ce code sera inserer dans le doe ci dessous:

Case 5   ' Royalty
                        .Font.Name = "Arial"
                        .Font.Size = 10
                        'on décale de 4 et retaille à 2 colonnes de largeur
                        With .Offset(, 4).Resize(, 2)
                            .Rows(1).Interior.ColorIndex = COLOR_FILL
                            .BorderAround LineStyle:=xlContinuous, Weight:=xlThin, ColorIndex:=1
                            .Borders(xlInsideVertical).LineStyle = xlNone
                            If .Rows.Count > 1 Then .Borders(xlInsideHorizontal).LineStyle = xlContinuous
                        End With

Donc a partir du moment ou je met du code dans ce Case 5 mes lignes de codes ne viendront impacter que cette zone.

Je fais quelques test avec ce que tu viens de me donner, et je te redis.
Si entre temps ce code apporte des element nouveau pour toi n'hesites pas!! 🙂

Bien cordialement.

Sim

 

[sim]

Re : Macro: Si colone"D" contient "Message" alros colone"C" = "".....j'y arrive pas :

Bon je crois que demander les quelques lignes de code ne suffit pas, il y a besoin d'un peu plus de precisions, veuillez m'en excuser.

Le code que j'ai mis juste au dessus "Case 5" represente en fait une Zone, qui est enfait la zone occupe par LA COPIE du resultat d'un TCD.

Donc de part Case 5, excel sait quelle zone nous voulons traiter.

J'utilise ce stratageme car Case 5 bouge de place en permanence.

Voila j'espere que c'est unpeu plus clair...et encore pardon pour le debut qui fait perdre un peu de temps 🙂

Bien cordialement

SIm

 

[Pierrot93]

Re : Macro: Si colone"D" contient "Message" alros colone"C" = "".....j'y arrive pas :

Re,

oui on s'éloigne de la question initiale... et pas top de voir ce que tu veux faire avec un bout de "macro" jeté sur un post....

 

[sim]

Re : Macro: Si colone"D" contient "Message" alros colone"C" = "".....j'y arrive pas :

Enfait Pierrot, Softmama, le forum

Je me suis dit "Case 5" definit la zone que je veut traiter.
Donc en y inserant le code me permettant de faire ce que je veux cela fonctionnera directement.....

Voila un petit exemple simplifie pour que tu te rende compte de ce que j'aimerai faire..

Merci d'avance pour le coup d'oeil 🙂

Sim

 

[Pierrot93]

Re : Macro: Si colone"D" contient "Message" alros colone"C" = "".....j'y arrive pas :

Re,

le code que je t'ai donné devrait suffire.. a modifier comme suit :

Dim i As Long
With Sheets("nomfeuille")
    For i = 6 To Range("E65536").End(xlUp).Row
        If .Range("E" & i) = "No Royalty" Then .Range("F" & i) = ""
    Next i
End With

 

[sim]

Re : Macro: Si colone"D" contient "Message" alros colone"C" = "".....j'y arrive pas :

Parfait!!

Merci 🙂

Bonne fin de journeee!!

Sim