population d'un array en selectionnant un range

Version imprimable

Voir 40 message(s) de cette discussion en une page

12/04/2019, 17h28
jpvba

:mouarf::mouarf::mouarf::mouarf::mouarf::mouarf:

mercatog tu m'as fait pas mal rire ... a première vue tous semble correct il me reste à adapté le code afin de le rendre relatif. Relatif n'est peut etre pas le bon terme, ce que je veux dire c'Est avec le nom des colonnes et la première et dernière valeur au lieu que ce sois des nombres.

ou que je risque d'etre hors de ma zone de confort est d'ajusté la "formula" ... si je peut mettre des variable l'affaire est ketchup !!!

Si j'ai un embuche, je vous recontact ... si tous ce passe bien, je vais fermer le post

un gros merci !!!!!!!

:mrgreen::mrgreen::mrgreen:

Bonjour les amis,

J'arrive avec le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub remp_relatif4()
 
 
Application.ScreenUpdating = False
 
supprNomRef
 
ActiveWorkbook.Names("no_format_travail").Name = "temporaire"
Sheets("Travail").Columns([temporaire].Column + 1).Name = "no_format_travail"
 
With Worksheets("Travail")
 
    .Columns([temporaire].Column + 1).Insert    'Insert colonne entre la colonne L et la colonne M
    .Columns([temporaire].Column + 1).Name = "no_format_travail"
    .Cells(1, [no_format_travail].Column) = .Cells(1, [temporaire].Column)
 
 
    With .Range(TrouveLettreColonne([no_format_travail]) & 2).Resize(Cells(1, [prov_long_travail].Column).End(xlDown).Row - 1)
 
        .Formula = "=IFERROR(VLOOKUP($L2,'Format à désactiver'!$A$1:$B$725,2,0),$L2)"
        .value = .value
 
    End With
    .Columns([temporaire].Column).Delete    'Supprime l'ancienne colonne L
 
 
End With
End Sub

Dont supprNomRef et TrouveLettreColonne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub supprNomRef()
Dim Nms As Name
    For Each Nms In Names
        If Nms Like "*[#]REF!*" Then Nms.Delete
    Next Nms
End Sub
 
Public Function TrouveLettreColonne(ByVal ColonneCherche As Range) As String
 
TrouveLettreColonne = Split(Columns(ColonneCherche.Column).Address(ColumnAbsolute:=False), ":")(1)
 
End Function

Où que je frappe un mur c'Est la fameuse partie

Code:

.Formula = "=IFERROR(VLOOKUP($L2,'Format à désactiver'!$A$1:$B$725,2,0),$L2)"

Comment faire pour remplacer le L par TrouveLettreColonne ([Temporaire]) et la partie $A$1:$B$725 par du VBA ???

merci mille fois !!!

Salut,

dans l'idée

Code:

1
2
3
dim lettre AS string
lettre= TrouveLettreColonne (Range("Temporaire").Value) 
.Formula = "=IFERROR(VLOOKUP($"& lettre & "2,'Format à désactiver'!$A$1:$B$725,2,0),$" & lettre & "2)"

Génial !!!

Donc

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub remplacement_format()
Dim lettre_chercher As String
Dim nbre_ligne As String
 
 
nbre_ligne = LastLignUsedInSheet("Format à désactiver")
 
 
Application.ScreenUpdating = False
 
 
supprNomRef
 
ActiveWorkbook.Names("no_format_travail").Name = "temporaire"
lettre_chercher = TrouveLettreColonne([temporaire])
 
Sheets("Travail").Columns([temporaire].Column + 1).Name = "no_format_travail"
 
With Worksheets("Travail")
 
    .Columns([temporaire].Column + 1).Insert    'Insert colonne entre la colonne L et la colonne M
    .Columns([temporaire].Column + 1).Name = "no_format_travail"
    .Cells(1, [no_format_travail].Column) = .Cells(1, [temporaire].Column)
 
 
    With .Range(TrouveLettreColonne([no_format_travail]) & 2).Resize(Cells(1, [prov_long_travail].Column).End(xlDown).Row - 1)
 
        .Formula = "=IFERROR(VLOOKUP($" & lettre_chercher & "2,'Format à désactiver'!$A$1:$B$" & nbre_ligne & ",2,0),$" & lettre_chercher & "2)"
        .value = .value
 
    End With
    .Columns([temporaire].Column).Delete    'Supprime l'ancienne colonne L
 
 
End With
End Sub

Dernière question. J'ai essayé de remplacer initialement le $A$1:$B$725 par une variable équivalente a un range mais cela n'a pas fonctionné .. Est-ce que la bonne ponctuation aurais été $nom_du_range$

merci encore mille fois !!!!!

J'ai trouver par essaie et erreur ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub remp_relatif6()
Dim lettre_chercher As String
 
 
 
Sheets("Format à désactiver").Range("a2:b" & LastLignUsedInSheet("Format à désactiver")).Name = "plage_cherche"
 
Application.ScreenUpdating = False
 
 
supprNomRef
 
ActiveWorkbook.Names("no_format_travail").Name = "temporaire"
lettre_chercher = TrouveLettreColonne([temporaire])
 
Sheets("Travail").Columns([temporaire].Column + 1).Name = "no_format_travail"
 
With Worksheets("Travail")
 
    .Columns([temporaire].Column + 1).Insert    'Insert colonne entre la colonne L et la colonne M
    .Columns([temporaire].Column + 1).Name = "no_format_travail"
    .Cells(1, [no_format_travail].Column) = .Cells(1, [temporaire].Column)
 
 
    With .Range(TrouveLettreColonne([no_format_travail]) & 2).Resize(Cells(1, [prov_long_travail].Column).End(xlDown).Row - 1)
 
 
        .Formula = "=IFERROR(VLOOKUP($" & lettre_chercher & "2,plage_cherche,2,0),$" & lettre_chercher & "2)"
        .value = .value
 
    End With
    .Columns([temporaire].Column).Delete    'Supprime l'ancienne colonne L
 
 
End With
End Sub

Est-ce la seule solution i.e. utiliser un nom au lieu d'une variable range ???

16/04/2019, 06h33
mercatog

Tu peux utiliser TaVariableRange.Address au lieu de A1B725

EDIT

Bonjour

Une autre approche, Utiliser les offset et resize avec:

Insertion d'une ~~ligne~~ colonne X juste après la plage à traiter
Inscrire la formule dans la nouvelle ~~ligne~~colonne
Transférer leur valeur dans la plage initiale
Supprimer la ~~ligne~~colonne X

Pas besoin de renommer la plage, ni chercher la lettre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
 
Sub Remp_relatif5()
Dim NomPlage As String, Ex As String
Dim Plage As Range
Dim N As Long
 
Application.ScreenUpdating = False
 
SupprNomRef
 
With Worksheets("Format à désactiver")
    N = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
 
NomPlage = "no_format_travail"
With Worksheets("Travail")
    Set Plage = .Range(NomPlage)
    Set Plage = Plage.Offset(1).Resize(Plage.Rows.Count - 1)    'Ligne à supprimer au cas ou no_format_travail n'englobe pas la ligne des titres
    With Plage
        Ex = .Item(1, 1).Address(0, 1)
        .Offset(, 1).EntireColumn.Insert
        .Offset(, 1).Formula = "=IFERROR(VLOOKUP(" & Ex & ",'Format à désactiver'!$A$1:$B$" & N & ",2,0)," & Ex & ")"
        .Value = .Offset(, 1).Value
        .Offset(, 1).EntireColumn.Delete
    End With
    Set Plage = Nothing
End With
End Sub
 
Private Sub SupprNomRef()
Dim Nms As Name
 
For Each Nms In Names
    If Nms Like "*[#]REF!*" Then Nms.Delete
Next Nms
End Sub

16/04/2019, 16h15
jpvba

merci beaucoup pour votre participation

sans votre aide je serais encore au point de départ.

amicalement JP

Voir 40 message(s) de cette discussion en une page