Si une colonne vide alors .. Résolu

Question

Bonjour, 

Ci joint mon programme qui fonctionne parfaitement,

Après modification du cahier des charges j'aimerais que ce programme s'exécute que si la colonne 21 n'est pas vide ..

J'ai essayé avec des for , des if et rien ne marche je n'arrive pas à ce que je  veux ..


Pouvez vous m'aider s'il vous plait ?

pijaku · Answer

Bonjour,

Ci joint mon programme qui fonctionne parfaitement 
Malheureusement, pas de fichier joint au message.

Pour joindre un fichier sur les forums de ccm il faut:________________________________________________________    - se rendre sur le site : https://www.cjoint.com/    - cliquer sur parcourir    - rechercher le fichier    - cliquer sur ouvrir    - cliquer sur créer le lien Cjoint    - copier le lien    - revenir ici le coller dans une réponse________________________________________________________

pijaku · Answer

Alors, si j'ai bien compris, tu as une ,Sub principale (appelons là Sub Main()) qui lance ta Sub Message.
Or tu souhaites qu'elle ne se lance que si et seulement si la colonne 21 n'est pas vide.
Si oui, ta Sub Main() devient : 

Sub Main()
'code
'du code
'encore du code
With Sheets("Feuil1") 'ADAPTE LE NOM DE LA FEUILLE
    If WorksheetFunction.CountA(.Columns(21)) > 0 Then Call Message
End With
'le reste du code
'encore du code
'encore un peu de code
'fini
End Sub

pijaku · Answer

Donc, tu veux que le contrôle se fasse sur la même ligne?

Si c'est ça, essaie :

Sub Main()
'code
'du code
'encore du code
Call Message_2
'le reste du code
'encore du code
'encore un peu de code
'fini
End Sub

Sub Message_2()

' Ce programme va chercher, pour chaque FMC, le message de panne qui lui correspond si il existe et l'afficher sur la deuxieme page


Application.ScreenUpdating = False     'Désactivation de l'actualisation de l'écran pour exécution plus rapide
Dim j As Integer                       'Déclaration de la variable j
Dim i As Integer                       'Déclaration de la variable i
Dim DL As Integer

With Sheets("Feuil1")
    DL = derlig_reelle(.Columns(15))   'dernière ligne non vide de la colonne O
    For j = 3 To DL
        If .Cells(j, 18).Value = .Cells(j, 15).Value And .Cells(j, 19).Value <> "" Then
            .Cells(j, 16) = .Cells(j, 17).Value
        End If
        'If .Cells(j, 16).Value = "" Then .Cells(j, 16).Value = "No messages available"
    Next j
End With
Call tri                               ' Appel de la fonction de tri
Application.ScreenUpdating = True      ' Réactivation de l'actualisation de l'écran
End Sub

Private Function derlig_reelle(plage As Range) As Long
   'cas d'absence de données dans la plage à traiter :
   If WorksheetFunction.CountA(plage) = 0 Then derlig_reelle = 1: Exit Function
   'dans tous les autres cas :
   derlig_reelle = plage.Find("*", , , , , xlPrevious).Row
End Function

Sub tri()
' Ce programme a pour but d'effectuer un "tri" afin de ne plus afficher les données inutiles comme les "zéros"
' créés lors de l'application de l'algorithme. Ca permettera de présenter les résultats de manière claire et sans données superflues

Dim i As Integer            'Déclaration de la variable i

i = 3                       'La valeur i prend la valeure 3
Do While i < 382 And ActiveCell.Value <> ""  ' Boucle , tant que i est inférieur a 382 et que la valeur de la cellule active est non nulle
    If Cells(i, 15).Value = 0 Then                 ' Si la cellule active est égale à 0
        Cells(i, 15).EntireRow.Hidden = True        ' Masquage de la ligne
    End If                  ' Fin de la condition
    i = i + 1               ' La variable i prend la valeure i+1
Loop                        ' Boucle
Cells(3, 1).Select          ' Selection de la cellule (3,1)
End Sub

Si une colonne vide alors ..

3 réponses

Discussions similaires

Newsletters