Discussion :

[Calimero33]

Je voudrais me servir de ma fonction NouvelleLigneAuDessus (qui fonctionne tres bien) pour insérer une ligne à un endroit précis via une macro.

Code :

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

1
2
3
4
5
6
7
8
9
10
For I = 1 To NbLigne
If (trouve <> 1) Then
Cellule = Range("A" & I)
If (Len(Cellule) = 5) Then
trouve = 1
Cellule.Select
Call NouvelleLigneAuDessus
End If
End If
Next

Impossible de selectionner ma cellule et d'inserer une ligne au dessus via ma fonction.

[JPierreM]

Bonjour,

Remplacez

Code :

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

Cellule = Range("A" & I)

par

Code :

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

set Cellule = Range("A" & I)