recherche chaine dans une autre, copier/coller et suppresion ligne

cathodique · 20 Mars 2013

Bonjour,

je Voudrais effectuer une boucle de recherche (sur une colonne) du contenu des cellules.

ma feuille de calcul se présente comme suit:

n°ligneExcel---------col A--------------ColB
2-------------------G1----------------OK
"------------------- "-----------------"
68------------------X_G1-------------1200

Les données ont toujours cette structure 1 ou 2 lettres+1 chiffre ou X,Y,Z et la valeur lettres+chiffres déjà contenue dans une cellule. autres de données que peut rencontrer : GL2 et ZX_GL2.

Je voudrais donc scanner toutes les cellules de la colonne A, pour cet exemple on recherche G1, qui se retrouve en ligne 68 , on copie la donnée cellule B68 (1200) et on l'insère au contenu cellule B2 (résultat en B2:OK&1200). ensuite on supprime la ligne 68.

Ceci va me permettre de réduire le nombre de lignes de ma base de données.

Je remercie.

job75 · 22 Mars 2013

Re : recherche chaine dans une autre, copier/coller et suppresion ligne

Re,

Oui, dans le fichier joint j'ai supprimé les "_" et écrit cette macro :

Code:

Sub SupprimeLignes()
Dim plage As Range, c As Range, c1 As Range, sup As Range
Application.ScreenUpdating = False
Set plage = Range("C2", Cells(Rows.Count, "C").End(xlUp))
For Each c In plage
  If Len(c) > 1 Then
    For Each c1 In plage
      If c1 <> c And Right(c1, Len(c)) = c And c1(1, 2) = c(1, 2) Then
        c(1, 7) = c(1, 7) & " - " & c1(1, 7)
        Set sup = Union(IIf(sup Is Nothing, c1, sup), c1)
      End If
    Next
  End If
Next
If Not sup Is Nothing Then sup.EntireRow.Delete
End Sub

Toutes les cellules de plus d'un caractère sont traitées.

Les résultats sont les mêmes.

Edit : j'avais d'abord limité la recherche aux cellules de 2 ou 3 caractères, mais c'était inutile.

A+

cathodique · 22 Mars 2013

Re : recherche chaine dans une autre, copier/coller et suppresion ligne

Bonsoir Job75,

Comment te remercier? Je te dis mille merci. tu es un champion.

Il ne me reste plus qu'à très bien comprendre ton code et pour exercice m'en inspirer pour récupérer les données des colonnes G et H en I.

Bonne continuation.

Cordialement,
Cathodique

recherche chaine dans une autre, copier/coller et suppresion ligne

cathodique

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

cathodique

XLDnaute Barbatruc

Discussions similaires

recherche chaine dans une autre, copier/coller et suppresion ligne

cathodique

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

cathodique

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency