Discussion :

[CristofMartins]

Bonjour tout le monde,
Alors voici mon problème :
J'ai une feuille Excel (c'est déjà ça..) et mon problème principal est que je ne connais pas la ligne où je doit insérer une autre. Ce que je fais c'est que je fais une boucle sur toute ma feuille Excel pour trouver une cellule avec une valeur. C'est la ligne de cette cellule qui devras insérer des lignes. mon deuxième problème est l'insertion des autres lignes car cette cellule doit insérer une ligne en dessus d'elle.
J’espère que vous compreniez mon problème.
En attendant une réponse merci d'avance

[Daniel.C]

Bonjour,

Tu peux utiliser l'équivalent VBA de la fonction EQUIV :

Code :

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

Ligne = Application.Match("ce_que_tu_cherches",[Feuille 1!A:A],0)

ou

Code :

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

Ligne = [Feuille 1!A:A].Find("ce_que_tu_cherches",,,xlWhole).Row

A adapter. Si "ce_que_tu_cherches" n'est q'une partie d'une cellule :

Code :

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

Ligne = [Feuille 1!A:A].Find("ce_que_tu_cherches",,,xlPart).Row

[CristofMartins]

Salut, merci pour ta reponse.
La ligne je la trouve. Enfin plus au moins.
Je t'explique mieux pour que tu me comprenne mieux
je fais une boucle sur toute ma feuille.

Code :

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

1
2
for each cell in range("A1:G1000")
next cell

dans cette boucle je fais un test :

Code :

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

1
2
3
4
 
if cell.value = "EXEMPLE" then
 
end if

donc si je trouve la cellule j'ai la ligne mais en cell.row.

Voila tout ce que j'ai.
Maintenant ce que j'aimerais savoir c'est comment, avec mon cell.row, faire :
- Insérer une ligne en dessus.

[Daniel.C]

Si cell.row=10, la ligne de la cellule devient 11.

Code :

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

1
2
3
if cell.value = "EXEMPLE" then
    cell.EntireRow.Insert
end if

[CristofMartins]

Merci