Probléme d'affichage

Résolu

r4944 Messages postés 122 Date d'inscription Statut Membre Dernière intervention -
r4944 Messages postés 122 Date d'inscription Statut Membre Dernière intervention - 27 nov. 2015 à 02:02

Bonjour

ce code nous permet de placer un xx dans la cellule 44 (AQ) dans le cas ou
AF= "Completed - Appointment made / Complété - Nomination faite"

j'ai essayé ce code ci dessus , j'ai pas eu des erreurs mais il n'affiche rien :

Sub Decision_Express_Lane()


    Dim cell As Range
    
  Dim n As Integer
  
    Dim MaPlage As Range
            
               
               
For n = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
    Set MaPlage = Range("A:F").Rows(n)
    If CStr(ActiveSheet.Cells(n, 32).Value) = "Completed - Appointment made / Complété - Nomination faite" _
         And WorksheetFunction.CountIf(MaPlage, "") = 0 Then
                ActiveSheet.Cells(n, 44).Value = "XX"

  
    End If
Next n



End Sub

A voir également:

Probléme d'affichage
Affichage double ecran - Guide
Problème affichage fenêtre windows 10 - Guide
Windows 11 affichage classique - Guide
Thunderbird problème affichage message - Forum Thunderbird
Problème affichage facebook ✓ - Forum Facebook

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

la cellule 44 (AQ) Non, 44 c'est AR et le code marche tres bien. Par contre faire attention a

ActiveSheet

, ca peut vous creez des soucis d'ecriture inatendue dans d'autre feuille suivant comment est appelee votre procederure

r4944 Messages postés 122 Date d'inscription Statut Membre Dernière intervention

Oui F894009 vous avez bien raison est ce que vous me conseillez d'utiliser une autre instruction a la place d'

ActiveSheet

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > r4944 Messages postés 122 Date d'inscription Statut Membre Dernière intervention

Bonjour,

autre instruction a la place d'ActiveSheet? mettez le nom de la feuille

ex: entre autre

Sub Decision_Express_Lane()
    Dim cell As Range, n As Integer, MaPlage As Range
            
    With Worksheets("feuil1")
        Fin = .Cells(.Rows.Count, 1).End(xlUp).Row
        For n = 2 To Fin
            Set MaPlage = .Range("A:F").Rows(n)
            If .Cells(n, 32).Value = "Completed - Appointment made / Complété - Nomination faite" _
                        And WorksheetFunction.CountIf(MaPlage, "") = 0 Then
                .Cells(n, 44).Value = "XX"
            End If
        Next n
    End With
End Sub

ou encore plus reduit

Sub Decision_Express_Lane()
    Dim cell As Range, n As Integer
            
    With Worksheets("feuil1")
        Fin = .Cells(.Rows.Count, 1).End(xlUp).Row
        For n = 2 To Fin
            If .Cells(n, 32).Value = "Completed - Appointment made / Complété - Nomination faite" _
                        And WorksheetFunction.CountIf(.Range("A:F").Rows(n), "") = 0 Then
                .Cells(n, 44).Value = "XX"
            End If
        Next n
    End With
End Sub

r4944 Messages postés 122 Date d'inscription Statut Membre Dernière intervention

Merci beaucoup pour Votre Aide :))

Discussions similaires

Les images ne s'affichent plus

impossible de voir les photos et videos sur une conversation messenger

Probleme d'affichage google chrome

Problème d'affichage d'une page web.

Problème d'affichage/bugs graphiques sur Chrome sur Android

Votre réponse

Discussions similaires