VBA : Modifier une cellule par rapport à sa voisine

CBernardT

XLDnaute Barbatruc

• 25 Janvier 2011

• #2

Re : VBA : Modifier une cellule par rapport à sa voisine

Bonjour,

Il serait intéressant d'avoir un petit extrait de ton fichier !

 

Vote positif 0 Vote négatif

P

polo_0109

XLDnaute Nouveau

• 25 Janvier 2011

• #3

Re : VBA : Modifier une cellule par rapport à sa voisine

Voici un extrait du fichier

 

Pièces jointes

• extraitcommunes.xlsx

  8.7 KB · Affichages: 64

Vote positif 0 Vote négatif

B

bigmousse

XLDnaute Occasionnel

• 25 Janvier 2011

• #4

Re : VBA : Modifier une cellule par rapport à sa voisine

Essaie avec CONCATENER

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 25 Janvier 2011

• #5

Re : VBA : Modifier une cellule par rapport à sa voisine

Bonjour,

En C1, tu tapes :

Code:

=STXT(A1;2;SI(A1<>"";NBCAR(A1)-2;0)) & " " & B1

et tu étires vers le bas.

(on considère que le nom dans la colonne A est toujours entre parenthèses)

EDIT : désolé, je n'avais pas vu que tu voulais le faire en VBA dans la colonne-même ...

Cordialement

 

Dernière édition: 25 Janvier 2011

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 25 Janvier 2011

• #6

Re : VBA : Modifier une cellule par rapport à sa voisine

Le voici en code VBA à mettre dans le code "feuille" et à lancer par ce que tu veux :

Code:

Option Explicit

Sub Conversion()
Dim Ligne As Long
Dim Prefixe As String
Dim Nom As String

For Ligne = 0 To Range("B65536").End(xlUp).Row - 1
    Prefixe = Range("A1").Offset(Ligne, 0).Value
    Nom = Range("A1").Offset(Ligne, 1).Value
    If Prefixe <> "" Then
        Prefixe = Mid(Prefixe, 2, Len(Prefixe) - 2)
        Range("B1").Offset(Ligne, 0).Value = Prefixe & " " & Nom
    End If
Next Ligne
End Sub

- il faudra modifier le B65536 que j'ai mis parce que c'est la limite de ma version)
- comme précédemment, le préfixe est toujours entre parenthèses
- je n'ai pas fait l'effacement de la colonne A. Il ne faut pas lancer le code plus d'une fois!

Cordialement

 

Vote positif 0 Vote négatif

P

polo_0109

XLDnaute Nouveau

• 25 Janvier 2011

• #7

Re : VBA : Modifier une cellule par rapport à sa voisine

Super, j'ai réussi en utilisant la formule CONCATENER et en plus j'ai appris beaucoup de choses.

Merci aux intervenants

 

Vote positif 0 Vote négatif