Discussion :

[rch05]

Bonjour,

Je n'arrive pas à effectuer un copier/coller d'une cellule vers une autre, après avoir effectué un test.
Si la condition est faux, je copie cette cellule vers une autre cellule.
Ci-dessous le 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
 
Private Sub CommandButton1_Click()
Dim i As Integer, t As Integer, s As Integer
 
i = 2
t = 2
s = 14
 
For i = 1 To 13
 
    If Range("c" & i + 1).Font.Color = RGB(255, 0, 0) Then
        Range("N" & i + 1).Interior.ColorIndex = 24
    Else
        Range("c" & i + 1).Copy Destination:= Range("n" & s + 1)
    End If
 
Next
End Sub

Merci d'avance de votre aide.

Cordialement

Christian

[Flo3301]

Bonjour,

C'est une erreur que j'ai commis de nombreuses fois ! La réponse est pourtant trés simple... Il faut que tu remplaces "Range" par "Cells", j'imagine que tu comprends pourquoi

En espérant que ca solutionne ton problème,

Bonne journée !

[rch05]

Bonjour Flo3301,

Merci de ta réponse, mais ça ne résout pas mon problème.

Merci d'avance

[Flo3301]

Désolé je suis allé trop vite, il faut bien que tu codes en utilisant "Cells" à la place de "Range" mais tu ne dois pas mettre de lettre type "c" ou "n".

Tu dois coder avec le modèle suivant : Cells(numérodeligne , numérodecolonne)

Exempe pour la cellule "C7" tu codes : Cells(7,3)
pour la cellule "E5" tu codes : Cells(5,5)

Je te laisse appliqué ce principe à ta procédure avec ta boucle.

Confirmes moi que cela fonctionne mais ca devrait résoudre ton probleme trés facilement !


PS : A quoi sert ta variable "t" ? Et prk mettre i = 2 alors que juste aprés tu boucle de i = 1 à 13 ? Il y a des incohérences mais ton erreur ne vient pas la, c'est juste que le programme ne fera pas forcement ce que tu attends. A préciser donc !

[rch05]

Merci, cela à résolu mon pb.
le i de For est le compteur.
Je vais revoir mon code.

Merci de ton aide

Bonne journée et bon WE.

Christian

[rvtoulon]

bonjour,
juste une info, pour flo, on peux très bien écrire ceci pour copier :

Code :

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

Range("c" & i + 1).Copy Destination:= Range("n" & s + 1)

un exemple simple:
dans une feuille de calcul disons feuil1 :
-dans la colonne A de A2 à A8 les jours de la semaine.
-dans un module standard ce code :

Code :

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

1
2
3
4
5
Sub test_copy()
For x = 1 To 7
Range("A" & x + 1).Copy Destination:=Range("C" & x + 2)
Next x
End Sub

les cellules sont copiées en colonne C à partir de C3.

[Flo3301]

Effectivement ca ne m'étonne pas, mais j'ai toujours tendance à avoir des problèmes lorsque j'utilise Range avec une seule cellule qui contient diverses variables. Je dois m'enmeler un peu les pinceau je crois ! Du coup désormais j'utilise Cells quand je ne veux qu'une cellule, et Range quand j'en ai plusieurs

Du coup, d'ou viendrait l'erreur dans son code ?