Discussion :

[motard_fou]

bonjour, j'ai de nouveau besoin de vous :

sur une feuilles excel ,je souhaiterai rechercher les cellules de la colonnes A contenat ("somme"+ un nombre)par exemple "somme 001041", les copier elles ainsi que les cases de la meme ligne mais dans la colonne C.

une fois toute ces cases copiées, je souhaite les coller plus loin sur ma feuille et supprimer le mot "somme". mais je n'est aucune idée de la syntaxe à utiliser.
si vous pouvais m'aider, merci beaucoup

[Elstak]

salut,

as tu des cellules qui contiennent "somme" + autre chose q'un nombre ?

sinon tu ne fait que rechercher "somme".

tu balayes tes cellules à l'aide de "left", de memoire c'est left (Texte,Nombre de caracteres). Si c'est ="somme" alors tu fais ce que tu veux (copier...).

pour ne garder que le nombre et virer "somme" tu peux faire right(Texte,6) car tu as 6 caracteres à enlever (somme et l'espace qui suit)

[ouskel'n'or]

Hello Elstak, t'as vu, j'aime bien passer derrière toi
Un truc plus sioux, motard_fou, puisque tu ne précises pas le nombre de chiffres qui composent ton nombre (6 dans ton exemple) mais sait-on jamais

Code :

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

Cells(NoLigne,NoCol).value = mid(Cells(NoLigne,NoCol).value, 7,len(Cells(NoLigne,NoCol).value) - 6)

Attention, tes cellules doivent être en format texte sinon tu devras formater des données selon le nombre de chiffres que doit comporter ton nombre.
Exemple avec six chiffres :

Code :

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

Cells(NoLigne,NoCol).value = Format(mid(Cells(NoLigne,NoCol).value, 7,len(Cells(NoLigne,NoCol).value) - 6),"000000")

[motard_fou]

Oui dans mes cases, il y à au maximum 6 chiffres
Voici le code que j’ai tapé pour le moment :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub recherche_cellule()
    Dim derniere_case
    derniere_case = Range("A65536").End(xlUp).Row
    Range("A4").Select ‘ car en A3 il y a une case qui contient: ‘somme tag’ qui ne m’intéresse aucunement    
    For i = 1 To (derniere_case - 2) Step 1 '-2 car ma colonne commence en A3
    Cells.Find(What:="Somme", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False).Activate
    Range("g1").Value = ActiveCell ‘je souhaite copier le contenu de ma cellule dans la colonne G par exemple, mais pour le moment j’écrase a chaque tour de boucle 
        Next i
End Sub

J’ai egalement quelques autres petites questions :

Comment puis-je connaître les ‘coordonnées’ de la case active ?
Comment faire pour écrire quelque chose dans une cellule de la colonne G, et je connais le numéro de cellule dans une variable :

Code :

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

var = Range("G65536").End(xlUp).Row

je tape ça , mais je me fait jeter :

Code :

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

Range("Gvar") =activecell

[ouskel'n'or]

J’ai egalement quelques autres petites questions :

1 - Comment puis-je connaître les ‘coordonnées’ de la case active ?
2 - Comment faire pour écrire quelque chose dans une cellule de la colonne G, et je connais le numéro de cellule dans une variable :

Bon, ta première question, je comprends

Code :

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

Adresse = Activecell.address

Là, tu obtiens une adresse absolue
Pour l'utiliser

Code :

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

Range(Adresse).value = ........

Regarde à address dans l'aide pour avoir une adresse relative.

Pour avoir la ligne

Code :

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

NoLigne = activecell.row

La colonne

Code :

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

NoColonne = activecell.column

Pour ta seconde question, désolé mais... avoue que tu n'es pas très clair
A tout hasard

Code :

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

Cells(NoLigne,NoColonne).value = ...........

Tu peux aussi écrire pour une plage de cellules

Code :

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

Plage = Range(Cells(NoLigne,NoColonne),Cells(NoLigne1,NoColonne1)).address

Si t'as un pb, essaie d'être plus précis