Indexer des cellules

Bonjour a tout le monde.
Je veux savoir comment indexé des cellules sous excel avec des macros. comme dans le cas de la programmation en c dire for(i=0;i<N;i++)
if tab[i]=2
...
end if
end for
Voici mon soucis. Car je veux copier des cellules mais avant de le faire il faut qu'une cellule d'une autre colonne mais sur la même ligne verifie une certaine condition je pense que j'ai été assez clair et net et merci d'avance

Bonjour,

Citation:

---

je pense que j'ai été assez clair et net

---

Tu te la pete, non? :lol::lol::mouarf:

Le code ci dessous boucle sur chaque ligne du tableau de la feuille active et test si la cellule en colonne B n'est pas vide.
A toi d'adapter selon tes critères qui pour le coup, ne sont pas clairs :mouarf:

Code:

---

1 2 3 4 5 6 7

Dim i As Long   For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If Range("B" & i).Value <> "" Then 'code pour copier End If Next i

---

Bonjour,

En complément de Jérôme qui répond plus vite que moi :D

L'indexation à deux dimensions est sous-entendue dans Excel --> une ligne et une colonne = une cellule.

Par exemple, pour affecter à la variable "test", la valeur de la cellule B2

Code:

---

test = Sheets("Feuil1").Cells(2,2).value

---

En fait, B2 devient Cells(2,2) en VBA... Le premier chiffre est la ligne, le deuxième la colonne.

Dans le cas de ton problème, il faut que tu vérifies le contenu d'une cellule sur une même ligne mais dans une autre colonne.

Exemple : pour copier la cellule en deuxième colonne si la cellule en huitième colonne = vrai

Code:

---

1 2 3 4 5 6

' si sur la même ligne i dans la 8ème colonne j'ai "VRAI" If Sheets("Feuil1").Cells(i,8).value = True then   'Alors faire la copie de Sheets("Feuil1").Cells(i,2)   End If

---

Bertrand

merci beaucoup les gars. Sauf que je ne sais pas ou se situe le problème mais quand je copie en valeur la cellule, ça ne marche pas il me remet la formule et je ne veux plus voir de formule pour les cellule concerné je vous donne un petit bout de mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub CommndButton1_Click() Dim r As Integer Application.ScreenUpdating = False   For r = 1 To r = 10   If Range("K" & r).Value = "oui" Then   Application.ScreenUpdating = False Range("A", r).Value = Range("A" & r).Value   End If   Next r     End Sub

---

et je veux vraiment être aidé sur ça réellement

Re,

Le code ci dessous me laisse perplexe :

Code:

---

Range("A", r).Value = Range("A" & r).Value

---

La syntaxe n'est pas bonne, cela devrait plutôt être :

Code:

---

Range("A" & r).Value = Range("A" & r).Value

---

Mais ça n'a pas de sens, tu copies la valeur de Ar sur Ar (?).
Où veux tu coller le résultat ? Car soit tu l'affectes à une variable, soit tu le colles dans une autre cellule.

Bertrand

en fait la premiere valeur est donnée par une formule et c'est ce que je veux éliminer en y laissant que la valeur ca va l'empecher de se changer si on réactualise la cellule d'origine. car y a une autre cellule qui depend de cette mm cellule. et mm en changeant le code comme indiquer ca ne marche pas. je ne sais pas ce qui se passe

la correction proposée par "Bear thé french" semble correspondre à ton attente, peux tu nous poster ton code et nous dire ce qui ne va pas exactement.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub CommandButton1_Click() Dim r As Integer Application.ScreenUpdating = False   For r = 1 To r = 10 Dim l As Range If Range("K" & r).Value = "oui" Then l = Range("A" & r).Value     Range("A" & r).Value = l.Value         End If   Next r     End Sub

---

voici le code et tjrs je retrouve la formule dans la cellule. Ce que je ne voudrai pas

Bonjour,

As-tu essayé comme cela

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() Dim r As Integer Application.ScreenUpdating = False For r = 1 To 10 If Range("K" & r).Value = "oui" Then Range("A" & r).Value = Evaluate(Range("A" & r).Value) End If Next r Application.ScreenUpdating = True End Sub

---

Cordialement.

Et comme cela

Code:

---

1 2 3 4 5 6 7

For r = 1 To r = 10   If Range("K" & r).Value = "oui" Then Range("A" & r).Value = Range("A" & r).Text End If   Next r

---

Maintenant ça marche très bien. Et merci bcp pour tous