VBA : problème avec macro et collage liaison

[Luigi13]

Bonjour à tous,
J'ai fait une petite macro en vba me permettant de changer les valeurs des cellules vide d'une colonne date en "00/00/0000". Voici le code :

Sub Datechange()

num = 1
Dat = "00/00/0000"

While num <> 4000
Range("Q" & num).Select
If ActiveCell.Show = "" Then
ActiveCell = Dat
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select

End If
num = num + 1
Wend
End Sub

Le problème c'est que les données de cette colonne proviennent d'un collage avec liaison d'un autre classeur ( c'est une base de données), et ma macro ignore mes cellules dont l'affichage est vide car quand je clique dessus ca me renvoit sur la barre de formule la liaison de type "='C:\Documents and Settings\.....". Du coup il ne la considère pas comme vide. J'ai fais le test car quand mon num sort du cadre "collé avec liaison", la tout de suite il me remplace les cellules vides par "00/00/0000".
Quelqu'un aurait une solution à ce problème ? merci!!

 

[mromain]

Re : VBA : problème avec macro et collage liaison

Bonjour Luigi13,


essaye en remplaçant

If ActiveCell.Show = "" Then

par

If ActiveCell.Text = "" Then

a+

 

[Pierrot93]

Re : VBA : problème avec macro et collage liaison

Bonjour luigi, Romain

pas sur d'avoir tout compris, essaye peut être comme ceci :

Option Explicit
Sub test()
Dim i As Long
For i = 1 To Range("Q65536").End(xlUp).Row
    If Cells(i, 17).Text = "" Then Cells(i, 17).Value = "00/00/0000"
Next i
End Sub

@+

 

[Luigi13]

Re : VBA : problème avec macro et collage liaison

Nicquel c'était juste le .text qu'il fallais mettre et pas le .show ou .value! merci bcp