Discussion :

[coco.on.off]

Bonjour a tous,

J'ai un probleme bidon dans une partie de mon long code mais malheureusement je cherche sur le forum si la question n'aurait pas deja ete posee et nan.
Donc voila dans cette partie du code, je dois copier coller 2 cellule C4 de type "t001" et D4 de type "10.a1". mais au niveau du If la fonction debug me sort "Runtime error 13 type mismatch" et le Watch me dit que Range ("C4 : D4").Value <> "" est vide.

Je ne vois pas ce qu'il n'arrive pas a reconnaitre.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub CommandButton1_Click()
'Add a new project
 
' Write a new project
    ActiveSheet.Unprotect
    Rows("8:8").Select
 
    If Range("C4:D4").Value <> "" Then
       Selection.Insert Shift:=xlDown
 
    Range("C4:D4").Select
    Selection.Copy
    Range("C8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 
    End If
End Sub

Amicalement

[kuchiky]

Bonjour,

C'est normal que cela ne fonctionne pas car dans:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Range("C4:D4").Value <> "" Then

A quoi correspond la valeur d'une plage de cellule??
Cela ne marche que pour une seul cellule comme:
Range("C4").Value.

Dans ton cas, il faudrait faire une boucle qui passe de C4 à D4 puis de faire ton if pour chacune des valeurs. Ainsi si chacune des valeurs différents de nuls, alors tu fais la suite de ton code.

[coco.on.off]

Merci, je ne savais pas que ca ne pouvait prendre qu'une seule cellule en compte. Je viens de faire une seconde boucle pour la cellule D4 et cale fonction comme je le voulait. Merci encore.