VBA concatener, erreurs variable non définie ou qualificateur incorrect

Bonjour,

Je souhaite éliminer des lignes d’un tableau Excel (version 2007) en fonction de 5 données et pour chacune j’ai au moins une condition du type = ou <> ou < à tester, souvent deux (par exemple je peux vouloir être entre 2 valeurs etc… ). Conclusion : usine à gaz.
Je pense utiliser la concatenation puis la fonction RechercheV afin de réduire le nombre de conditions à contrôler. En effet, pour l’essentiel, je dois supprimer les lignes dont toutes les données sauf une sont identiques, donc je fais la concatenation sur sur 4 données, ensuite je recheche dans mon tableau la première ligne trouvée, j’applique ma condition et si VRAI je dois alors supprimer les deux lignes.
Le code ci-dessous me renvoie les messages d’erreur suivants :
sans la ligne n°2 « Dim Cell As String », message « Erreur de compilation - Variable non définie »
et si je déclare « Dim Cell As String » :
message « Erreur de compilation – Qualificateur incorrect »
Je ne vois pas pourquoi il y a le message variable non définie car Cell est un objet, pas une variable.

Ci-joint le fichier Excel

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Tri_par_concatenation() Dim Cell As String Range("A2").Select Do While ActiveCell <> "" If ActiveCell <> "" Then Cells(Cell.Row, "S") = Cells(Cell.Row, "B") & Cells(Cell.Row, "H") & Cells(Cell.Row, "L") & Cells(Cell.Row, "H") ActiveCell.Offset(1, 0).Select End If Loop End Sub

---

Merci de votre aide

Bonsoir,
Regardes ce lien: http://www.developpez.net/forums/d13...m/#post7484874

Bonjour,

un peu de révision sur les variables : http://silkyroad.developpez.com/VBA/LesVariables/#LII-K ..

"Cell" n'est pas une variable "standard" d'Excel il faut donc que tu la déclare et c'est une variable de type Object .... ou Range..

n'oublie pas qu'on doit aussi affecter une variable objet à un objet grâce par exemple à une instruction Set avant de l'utiliser ...


pour finir pour ton code c'est rarement une bonne idée d'utiliser activeCell et Select ;) tu n'as pas besoin de déplacer ton curseur pour accéder à une cellule .

tiens sans tester en supprimant juste ActiveCell de ton code cela pourrais donner :

Code:

---

1 2 3 4 5 6 7 8

Sub Tri_par_concatenation() Dim Cell As Range Set Cell = Range("A2") ' Arf !! Attention est tu sur d'être sur la bonne feuille au lancement de ton code ? Do While Cell <> "" Cell.EntireRow.Cells(1, "S") = Cell.EntireRow.Cells(1, "B") & Cell.EntireRow.Cells(1, "H") & Cell.EntireRow.Cells(1, "L") & Cell.EntireRow.Cells(1, "H") Set Cell = Cell.Offset(1, 0) Loop End Sub

---

Rdurupt,
Merci pour votre réponse super rapide. J’ai donc regardé le code que vous m’avez conseillé mais je dois dire que je n’y ai pas compris grand-chose, je n’ai que quelques notions rudimentaires de VBA et j’ignore la plupart des termes (j’emploie terme faute de savoir exactement de quoi il s’agit) que j’y ai vu.
Je vais donc devoir faire quelques (longues) recherches avant de pouvoir le comprendre. En outre, sans lien entre un écran et le code c’est encore plus difficile. Cependant, j’ai bien compris que ce code est économe en ressource et j’ai lu que Function pouvait être sollicité à n’importe quel moment dans un programme, ce qui répond à mon besoin. Je devrais donc pouvoir m’inspirer de ce code... probablement avec de nouvelles questions avant d’en arriver là.

bbil,
Votre code fonctionne parfaitement. Je viens de jeter un coup d’œil au tutoriel et ça correspond bien à mes attentes et besoins. Merci.

Merci encore à vous deux pour vos conseils.