Probléme d'affichage

Résolu/Fermé

r4944 Messages postés 122 Date d'inscription vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017 - Modifié par r4944 le 25/11/2015 à 20:56
r4944 Messages postés 122 Date d'inscription vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017 - 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
Comment agrandir l'affichage de l'écran - Guide
Casio fx-92 affichage décimal ✓ - Forum calculatrices

1 réponse

Réponse 1 / 1

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
26 nov. 2015 à 08:32

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 vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017
26 nov. 2015 à 15:20

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 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709 > r4944 Messages postés 122 Date d'inscription vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017
26 nov. 2015 à 16:34

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 vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017
27 nov. 2015 à 02:02

Merci beaucoup pour Votre Aide :))

Discussions similaires

adele

Leboncoin : j'ai un problème d'affichage

Les images ne s'affichent plus

Probleme d'affichage google chrome

Agrandir la taille d'affichage de toute l'interface OUTLOOK 2010