Concatener par Macros

teodormircea · 31 Mars 2009

Bonjour le Forum

Je voudrais remplacer cette formule , ="*"& cellule &"*" avec une macros.

comme celle ci mais çà marche pas

Code:

Sub Conca()
Dim X, Y As Integer
If MsgBox("Code Y Assets a REVOIR", vbYesNo, "Continuer pour MARQUER") = vbYes Then
'xcl = 2 'ici j'indique la variable qui n'était pas renseignée dans ta macro
X = InputBox("SOURCE", "SOURCE")
Y = InputBox("TARGET", "TARGET")

k = Range(Cells(Rows.Count, X).Address).End(xlUp).Row - 1

i = Range(Cells(Rows.Count, Y).Address).End(xlUp).Row - 1

Range(Cells(2, Y), Cells(i, Y)) = Range(Cells(2, X), Cells(k, X))
End If
'c'est tout sans boucle
End Sub

Un peux de lumière😛

kjin · 31 Mars 2009

Re : Concatener par Macros

Bonjour,
Commence par modifier les variables X et Y, parce que de fait elles sont au format texte et ça ne peut pas fonctionner

Code:

X = CLng(InputBox("SOURCE", "SOURCE"))
Y = CLng(InputBox("TARGET", "TARGET"))

Pour le reste je n'ai pas compris ce que tu veux faire
A+
kjin

Caillou · 31 Mars 2009

Re : Concatener par Macros

une petite remarque si je puis me permettre,

Dans la ligne
Dim X, Y As Integer
seule la variable Y est déclarée en Integer (X est variant)
pour déclarer les 2 en Integer, il faut écrire :
Dim X As Integer, Y As Integer

Caillou

teodormircea · 31 Mars 2009

Re : Concatener par Macros

Oui,

Code:

Sub Conca()
Dim X, Y As Integer

X = InputBox("SOURCE", "SOURCE")
Y = InputBox("TARGET", "TARGET")

k = Range(Cells(Rows.Count, X).Address).End(xlUp).Row - 1

i = Range(Cells(Rows.Count, Y).Address).End(xlUp).Row - 1

Range(Cells(2, Y), Cells(i, Y)) = "*"&Range(Cells(2, X), Cells(k, X))&"*"


End Sub

voila ca marche toujours pas , la je pense que c'est ma méthode qui est pas bonne

teodormircea · 31 Mars 2009

Re : Concatener par Macros

Code:

Sub Conca()
 
       Dim X As Integer
       Dim Y As Integer
       Dim Z As Integer
       Dim i As Integer
       
       
       X = Application.InputBox(prompt:="Source Column ", Title:="Insert Column Number", Type:=1)
       If (X < 1) + (X > Columns.Count) Then Exit Sub
       LastRow = ActiveSheet.Cells(Rows.Count, X).End(xlUp).Row - 1
       
      Z = Application.InputBox(prompt:="Target Column ", Title:="Insert Column Number", Type:=1)
       
       
      
       For i = 2 To LastRow
    If Cells(i, Z).EntireRow.Hidden = False Then
        Cells(i, Z).Value = "*" & Cells(i, X).Value & "*"
    Else
        Cells(i, Z).ClearContents
    End If
Next i

 
End Sub

Concatener par Macros

teodormircea

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Caillou

XLDnaute Impliqué

teodormircea

XLDnaute Occasionnel

teodormircea

XLDnaute Occasionnel

Discussions similaires

Concatener par Macros

teodormircea

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Caillou

XLDnaute Impliqué

teodormircea

XLDnaute Occasionnel

teodormircea

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency