je fais une macro dans laquelle je veux dire :
si dans cellule de la colonne C, existe "SDF"
alors écrit dans la cellule B correspondante : "OK"
sinon
laisser le contenu de la cellule B tel qu'il est
voici ma macro
-----
Dim rng As Range
Dim c As Range
Dim b As Range
With Worksheets("Plan de montage")
Set b = Range("B1:B" & [B65536].End(xlUp).Row)
'Set c = Range("C1:C" & [C65536].End(xlUp).Row)
Set rng = Range("C1:C" & [C65536].End(xlUp).Row)
End With
For Each c In rng
If UCase(c.Value) = "SDF" Then
b = "OK"
ElseIf UCase(c.Value) <> "SDF" Then
b = b
End If
Next
Set rng = Nothing
-----
Je n'arrive pas à obtenir le résultat voulu
Où est l'erreur ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
bonjour,
For Each c In rng If UCase(c.Value) = "SDF" Then c.offset(0,-1).value = "OK" Next Set rng = Nothing
A+
Bonjour à tous,
je fais une macro dans laquelle je veux dire : si dans cellule de la colonne C, existe "SDF" alors écrit dans la cellule B correspondante : "OK" sinon laisser le contenu de la cellule B tel qu'il est voici ma macro ----- Dim rng As Range Dim c As Range Dim b As Range
With Worksheets("Plan de montage") Set b = Range("B1:B" & [B65536].End(xlUp).Row) 'Set c = Range("C1:C" & [C65536].End(xlUp).Row) Set rng = Range("C1:C" & [C65536].End(xlUp).Row) End With
For Each c In rng If UCase(c.Value) = "SDF" Then b = "OK" ElseIf UCase(c.Value) <> "SDF" Then b = b End If Next Set rng = Nothing ----- Je n'arrive pas à obtenir le résultat voulu Où est l'erreur ?
D'avance merci pour votre aide
bonjour,
For Each c In rng
If UCase(c.Value) = "SDF" Then c.offset(0,-1).value = "OK"
Next
Set rng = Nothing
A+
Bonjour à tous,
je fais une macro dans laquelle je veux dire :
si dans cellule de la colonne C, existe "SDF"
alors écrit dans la cellule B correspondante : "OK"
sinon
laisser le contenu de la cellule B tel qu'il est
voici ma macro
-----
Dim rng As Range
Dim c As Range
Dim b As Range
With Worksheets("Plan de montage")
Set b = Range("B1:B" & [B65536].End(xlUp).Row)
'Set c = Range("C1:C" & [C65536].End(xlUp).Row)
Set rng = Range("C1:C" & [C65536].End(xlUp).Row)
End With
For Each c In rng
If UCase(c.Value) = "SDF" Then
b = "OK"
ElseIf UCase(c.Value) <> "SDF" Then
b = b
End If
Next
Set rng = Nothing
-----
Je n'arrive pas à obtenir le résultat voulu
Où est l'erreur ?
For Each c In rng If UCase(c.Value) = "SDF" Then c.offset(0,-1).value = "OK" Next Set rng = Nothing
A+
Bonjour à tous,
je fais une macro dans laquelle je veux dire : si dans cellule de la colonne C, existe "SDF" alors écrit dans la cellule B correspondante : "OK" sinon laisser le contenu de la cellule B tel qu'il est voici ma macro ----- Dim rng As Range Dim c As Range Dim b As Range
With Worksheets("Plan de montage") Set b = Range("B1:B" & [B65536].End(xlUp).Row) 'Set c = Range("C1:C" & [C65536].End(xlUp).Row) Set rng = Range("C1:C" & [C65536].End(xlUp).Row) End With
For Each c In rng If UCase(c.Value) = "SDF" Then b = "OK" ElseIf UCase(c.Value) <> "SDF" Then b = b End If Next Set rng = Nothing ----- Je n'arrive pas à obtenir le résultat voulu Où est l'erreur ?
D'avance merci pour votre aide
ChrisV
Bonjour Françoise,
Sub zaza() Dim i As Long Application.ScreenUpdating = False For i = 1 To [C65536].End(xlUp).Row If Cells(i, 3) Like "*SDF*" Then Cells(i, 2) = "Ok" End If Next i End Sub
ChrisV
"Françoise" a écrit dans le message de news:
Bonjour à tous,
je fais une macro dans laquelle je veux dire : si dans cellule de la colonne C, existe "SDF" alors écrit dans la cellule B correspondante : "OK" sinon laisser le contenu de la cellule B tel qu'il est voici ma macro ----- Dim rng As Range Dim c As Range Dim b As Range
With Worksheets("Plan de montage") Set b = Range("B1:B" & [B65536].End(xlUp).Row) 'Set c = Range("C1:C" & [C65536].End(xlUp).Row) Set rng = Range("C1:C" & [C65536].End(xlUp).Row) End With
For Each c In rng If UCase(c.Value) = "SDF" Then b = "OK" ElseIf UCase(c.Value) <> "SDF" Then b = b End If Next Set rng = Nothing ----- Je n'arrive pas à obtenir le résultat voulu Où est l'erreur ?
D'avance merci pour votre aide
Bonjour Françoise,
Sub zaza()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To [C65536].End(xlUp).Row
If Cells(i, 3) Like "*SDF*" Then
Cells(i, 2) = "Ok"
End If
Next i
End Sub
ChrisV
"Françoise" <Franoise@discussions.microsoft.com> a écrit dans le message de
news: 94D877EF-5ED7-44CE-B11E-2D55D928B88F@microsoft.com...
Bonjour à tous,
je fais une macro dans laquelle je veux dire :
si dans cellule de la colonne C, existe "SDF"
alors écrit dans la cellule B correspondante : "OK"
sinon
laisser le contenu de la cellule B tel qu'il est
voici ma macro
-----
Dim rng As Range
Dim c As Range
Dim b As Range
With Worksheets("Plan de montage")
Set b = Range("B1:B" & [B65536].End(xlUp).Row)
'Set c = Range("C1:C" & [C65536].End(xlUp).Row)
Set rng = Range("C1:C" & [C65536].End(xlUp).Row)
End With
For Each c In rng
If UCase(c.Value) = "SDF" Then
b = "OK"
ElseIf UCase(c.Value) <> "SDF" Then
b = b
End If
Next
Set rng = Nothing
-----
Je n'arrive pas à obtenir le résultat voulu
Où est l'erreur ?
Sub zaza() Dim i As Long Application.ScreenUpdating = False For i = 1 To [C65536].End(xlUp).Row If Cells(i, 3) Like "*SDF*" Then Cells(i, 2) = "Ok" End If Next i End Sub
ChrisV
"Françoise" a écrit dans le message de news:
Bonjour à tous,
je fais une macro dans laquelle je veux dire : si dans cellule de la colonne C, existe "SDF" alors écrit dans la cellule B correspondante : "OK" sinon laisser le contenu de la cellule B tel qu'il est voici ma macro ----- Dim rng As Range Dim c As Range Dim b As Range
With Worksheets("Plan de montage") Set b = Range("B1:B" & [B65536].End(xlUp).Row) 'Set c = Range("C1:C" & [C65536].End(xlUp).Row) Set rng = Range("C1:C" & [C65536].End(xlUp).Row) End With
For Each c In rng If UCase(c.Value) = "SDF" Then b = "OK" ElseIf UCase(c.Value) <> "SDF" Then b = b End If Next Set rng = Nothing ----- Je n'arrive pas à obtenir le résultat voulu Où est l'erreur ?
