besoin d'aide pour une macro excel

[gizmocaca]

slt je suis débutant en visual basic et je doi creer une macro avec excel . voila le pb : jorai besoin d aide pour me lancer car je cal literalemen .donc voila g 1 tableau avec des colones (aplication , reference ...) et dans le tableau je doi supprimer toute le lignes ou sont ecrites par exemple toto dans la colone aplication pour pouvoir garder les ligne qui minteresses . voila le tableau :

application | reference |...........
-----------------------------
toto | 123 |.....
-----------------------------
titi |124 |.........

le but cest que je doi suprimer les lignes ou sont ecrite" toto " .svp aider moi merci davance

 

[Nova13]

c'est pas franchement compliqué alors vaut mieux chercher.
Si quelqu'un te donne la réponse ca te servira à rien.

Voilà 2 très bon site (surtout le 1er) pour apprendre à programmer en vba:

Vous devez être connecté pour voir les liens.

http://www.info-3000.com/vbvba/index.php

 

[gizmocaca]

aller soi simpa sa fai 2 jour k j buche et javance vraimen pa donne moi au moin un cou de pouce

 

[Nova13]

Voilà 2 très bon site (surtout le 1er) pour apprendre à programmer en vba:

Vous devez être connecté pour voir les liens.

http://www.info-3000.com/vbvba/index.php

si ca c'est pas un coup de pouce... et bah :kaola:

Faut pas croire que tout ton prog va te tomber tout cuit dans le bec

 

[gizmocaca]

ba g tjrs un pb .jarive a supprimer la ligne que je veu (ex la ligne 1 ) mais pa celle ou elle est egale a toto , parce que en fait ce tableau je l'extrait d'internet et les lignes a supprimer sont jamais au meme endroit, c'est pour ca que je galére .alors svp donnez moi une solution .meme avec la metode "find" ji arrive pas.

 

[Nova13]

c'est normal, t'as juste à faire une boucle en incrémentant ton numéro de ligne et en testant la chaine caractère à l'intérieur de ta cellule.
Bon allé un indice

set cel as range
cel=range("a1").offset(ligne,colonne)
if cel="toto" or cel="titi" then
rows(ligne:ligne).clear

Avec 4 lignes principales tu fait tout ton programme

PS:c'est donné en vrac, essaye pas de faire des copier collé en chaine

 

[gizmocaca]

moi j'ai reussi a faire ca et sa marche :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 29/05/2006 par Administrateur
'Déclaration du tableau
Dim MesEleves() As String
Dim i As Integer
Dim j As Integer 'Nbre éléments du tableau
Dim Cel As Range
'On affecte la cellule "A1" à la variable Cel
Set Cel = Range("A1")
'Boucle pour remplir le tableau
For i = 1 To 250
If Not Cel.Offset(i, 2) = ("toto") Then 'Si
j = j + 1
'Redimension du tableau en conservant
'ses éléments
ReDim Preserve MesEleves(j)
MesEleves(j) = Cel.Offset(i)
Rows(1).Offset(i).Clear
End If
Next i

End Sub




merci pour les liens sa ma aidé meme si j'ai eu bcp de mal

 

[Nova13]

Un magnifique copier collé du site que je t'ai donné...je suis sur que t'as pas compris la moitié de ce que contient ces 15 lignes de code (au passage, met les balises

).

Après je me trompe peut-etre, alors je peux en profiter pour te poser une question.
Pourquoi utilises-tu un tableau? Ca te complique la vie plus qu'autre chose, vu que tu cherches juste à lire ce qu'il y a dans les cases d'une seule colonne.

 

[gizmocaca]

et alor si ca marche et que je compren la + grande parti de ce tableau le reste on s'en fou .