Discussion :

[zyzzz]

Bonjour j ai simplifié mon code au maximum pour comprendre ou se situait mon problème, le voici :
En vulgarisant, je voudrais que pour chaque cellule de la colonne r, si la cellule est égale à 5 par exemple qu'elle prenne la valeur 4.
J'ai les message d'erreur suivant : "Erreur '13' incompatibilité de type", je débuté sur VBA, veuillez m'excuser ^^'
Merci d'avance pour vos réponses

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
Sub marine()
 
Dim r As Integer
Dim cellule As Range
 
Cells(4, 5).Select
r = ActiveCell.Row
MsgBox (r)
Workbooks("blabla.xlsm").Sheets("Feuil2").Cells(r, r).Value = r
For Each cellule In Columns(r)
If cellule.Value = 5 Then
cellule.Value = 4
End If
Next
 
End Sub

[a_diard]

Bonjour

peut être en remplaçant :

Code :

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

For Each cellule In Columns(r)

par

Code :

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

For Each cellule In Columns(r).Cells

Bonne journée.

[unparia]

Bonjour
1) Ton incompatibilité de type résulte de ceci :

Code :

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

For Each cellule In Columns(r)

In Columns(r).quoi ?
(quoi, ce sont des cellules, non ?) --->> In columns(r).Cells
2) Parcourir la totalité des cellules d'une colonne est peu sage. Il ne faut pas parcourir inutilement au delà de la dernière ligne remplie .
3) A quoi t'est utile de sélectionner ainsi la cellule E4 :

Cells(4, 5).Select

Pour ... en déterminer le N° de ligne ? Tu le connais ! C'est 4 !
et du coup :
r = 4
et

Code :

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

Workbooks("blabla.xlsm").Sheets("Feuil2").Cells(r, r).Value = r

n'est finalement rien d'autre que :

Code :

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

Workbooks("blabla.xlsm").Sheets("Feuil2").Cells(4, 4).Value =4

ou

Code :

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

Workbooks("blabla.xlsm").Sheets("Feuil2")Range("D4").Value =4

Mais tout cela devient totalement inutile, dès lors que ce que tu veux finalement faire est donner la valeur 4 aux cellules de la colonne 4 qui contiendraient la valeur 5 !

Ouvre donc vite ton aide interne VBA à la rubrique Range.Replace, méthode, lis et applique ! Nul besoin de tout ton code !

[Menhir]

J'ai les message d'erreur suivant : "Erreur '13' incompatibilité de type"

Sur quelle ligne ?

[zyzzz]

Merci pour la rapidité de votre réponse,
effectivement en mentionnant .Cells c'est tout de suite plus logique.
Unparia le code que j'ai mentionné n'a en effet aucune logique, c'était simplement pour simplifier mon post.
Merci à vous