Re: Surtout ce n'est Absolument Pas Urgent car je n'ai pas Besoin d'Aide !!
Coucou André, C@thy
Oui IsDate simplifie tout pour faire ceci, mais par contre non Ândré, je ne passe pas par une autre Colonne, je ne fais que ceci : Je vous refais la même Macro en FullComment (c'est çà qui prend le plus de temps à faire en fait)
Sub TestDateAndDeleteEmpty() ' Nom de la Macro (Explicit SiVouPLé)
Dim TmpVal As String 'Déclaration d'une Variable de Type Chaine de Caractères
Dim Cell As Range ' Déclaration d'une Variable Object Range
With Sheets("Feuil1") 'Donc avec la Feuil1 (à adapter of course)
For Each Cell In .Range("A1:A1000") 'Pour Chaque Cellule dans la Plage (à adapter of course again)
If IsDate(Cell.Offset(0, 1)) Then 'Si la Cell Décalée de 0 ligne et 1 colonne (soit la B) est une Date
TmpVal = Cell 'J'initialise ma Variable de Type String avec le Contenu de la Cellule
Cell = TmpVal & " ECP" 'Je ré-importe directement dans la Cellule sa Valeur concaténée avec "ECP"
End If ' Fin de la Condition si "Bx" est une Date
Next ' Cellule suivante
'ici ce n'est que pour la SECONDE DEMANDE de LaFarce "Quel est le code pour supprimer les lignes vides"
.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With 'Fin de avec la Feuil1
End Sub ' Fin de la Macro
Voilà sinon moi y en a pas de la Défense mise à part celle d'XLD (of Course !!! lol)
Oui sinon c'était peut être une Farce ce Fil ....
Bonne Fin d'Aprèm
@+Thierry
PS je pourrais me passer la Variable TmpVal, mais c'est pour être plus clair, et je pense qu'implicitement à la compilation cette Variable est générée, mais juste pour un souci d'explication détaillée on pourrait faire ceci directement :
Cell = Cell & " ECP"
Au lieu de :
TmpVal = Cell
Cell = TmpVal & " ECP"
This is not une Farce !