Automatise tâches dans Excel 2007

[mikael2235]

Bonjour à tous,

Je souhaite automatiser une tache dans un tableur Excel. Et autant dire qu'il va falloir passer par du V.B.A. et c'est maintenant que j'ai besoin de votre aide.

Je vous explique mon cas :

- Le tableau est organisé en groupes, je souhaite tout d'abord que la macro supprime tous les sous-groupes (niveau 2). C'est à dire, dans mon exemple les lignes 7,9,11,12 & 17,19,20,21,23,24).

On pourrait le traduire par, supprimer la ligne entière lorsque la cellule A est vide, et quand B est non vide.

Maintenant, j'ai beaucoup de mal a le traduire en VBA.

Merci pour votre aide.

Mikael

 

[JNP]

Re : Automatise tâches dans Excel 2007

Re 🙂,
Ta fonction est-elle bien dans un module ?
Tu peux aussi rajouter un Volatile

Function VILLE(Target As Range) As String
Application.Volatile
If [Target] Like "*140*" Then VILLE = "ANGERS I"
If [Target] Like "*141*" Then VILLE = "ANGERS II"
If [Target] Like "*306*" Then VILLE = "ANGERS III"
If [Target] Like "*104*" Then VILLE = "CAEN I"
If [Target] Like "*106*" Then VILLE = "CAEN II"
If [Target] Like "*327*" Then VILLE = "CAEN III"
If [Target] Like "*142*" Then VILLE = "CHERBOURG"
If [Target] Like "*68*" Then VILLE = "FOUGERES"
If [Target] Like "*148*" Then VILLE = "VANNES"
End Function

A + 😎

 

[mikael2235]

Re : Automatise tâches dans Excel 2007

Re 🙂,
Ta fonction est-elle bien dans un module ?
Tu peux aussi rajouter un Volatile

Salut JNP,

Merci pour ce petit détail, qui maintenant fait que ça marche.

Enorme Merci à toi et Youky(BJ) pour votre aide.

 

[mikael2235]

Re : Automatise tâches dans Excel 2007

Bon ça ne marche plus...

Je comprends rien.

J'ai toujours le même code :

Function VILLE(Target As Range) As String
Application.Volatile
If [Target] Like "*140*" Then VILLE = "ANGERS I"
If [Target] Like "*141*" Then VILLE = "ANGERS II"
If [Target] Like "*306*" Then VILLE = "ANGERS III"
If [Target] Like "*104*" Then VILLE = "CAEN I"
If [Target] Like "*106*" Then VILLE = "CAEN II"
If [Target] Like "*327*" Then VILLE = "CAEN III"
If [Target] Like "*142*" Then VILLE = "CHERBOURG"
If [Target] Like "*68*" Then VILLE = "FOUGERES"
If [Target] Like "*148*" Then VILLE = "VANNES"
End Function

et en D2 : =VILLE(C2)

et il me met toujours #NOM?

 

[JNP]

Re : Automatise tâches dans Excel 2007

Re 🙂,
Mets nous voir un petit fichier test qui ne fonctionne pas, sinon on aura du mal à comprendre...
A + 😎

 

[mikael2235]

Re : Automatise tâches dans Excel 2007

Voilà le fichier, donc je voudrais que la fonction VILLE soit en D2 avec le contenu de C2