Microsoft 365 VBA

B

blancolie

XLDnaute Impliqué

• 15 Juillet 2020

• #31

Bonjour,

je suis entrain de regarder des tutos je voudrai sêtre sur de cette ligne la: Cells(Ligne_Fin + 1, 1), le +1 c'est une ligne en plus et le 1 après la virgule, c'est la colonne, c'est bien çà ?

en vous remerciant

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Juillet 2020

• #32

re
bonjour
oui c'est çà

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 15 Juillet 2020

• #33

Quand on veut créer une variable , on doit la déclarer avec dim mais si on doit déclarer une deuxième pour la même macro, faut pas réutiliser dim pour re re déclarer une variable ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Juillet 2020

• #34

bonsoir

déclaration 1 variable:
Dim mavariable as long

déclaration 2 et plus normale
Dim mavariable1 as long
dim mavariable2 as string

la même sur une seule ligne
dim mavariable1 as long , mavariable2 as string

la même sur une seule ligne et abrégée
dim mavariable1& , mavariable2$

pour les format abrégés
& correspond à as long 'numérique limité de -2 147 483 648 à 2 147 483 647
$ correspond à as string' texte
# correspond à as double' numérique avec decimal ou gros chiffre
% correspond à as integer ' numérique limité à de -32 768 à 32 767

il faudra aussi apprendre et connaitre la NOTION DE globale , globale module , public , private et static

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 15 Juillet 2020

• #35

Ok je te remercie car ds la macro qui m intéresse j ai dim lign_debut et en dessous j ai juste lign_fin

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Juillet 2020

• #36

re
ben soit tu a oublié de la dimer

soit elle est dimée en haut de module , on dit alors que c'est une variable globale module(utilisable dans toutes les sub du module sans la re déclarer )

et si elle est dimée en "PUBLIC" alors c'est une variable globale workbook (utilisable dans tout les module du classeur sans la re déclarer )

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 15 Juillet 2020

• #37

Voila la macro :

VB:

Sub Macro1()
Dim Num_Ligne As Long
    Num_Ligne = 2 
    Application.DisplayAlerts = False
    While Cells(Num_Ligne, 1) <> ""
        Ligne_Fin = Num_Ligne
        While Cells(Ligne_Fin, 1) = Cells(Ligne_Fin + 1, 1)
             Ligne_Fin = Ligne_Fin + 1
        Wend
        With Range(Cells(Num_Ligne, 1), Cells(Ligne_Fin, 1))
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
            .MergeCells = True
        End With
        Num_Ligne = Ligne_Fin + 1
    Wend
    Application.DisplayAlerts = True
End Sub

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Juillet 2020

• #38

oui bon il est pas déclarée
mais si je comprends ton intention c'est de repérer la plage pleine en "A" pour y appliquer les propriétés
bon le merge me perturbe un peu sachant que seule la valeur de le ligne 2 sera gardée

bref si tu m'explique en terme non informatique peut etre je comprendrait mieux

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 15 Juillet 2020

• #39

le but est de fusionner les cellules d'un tableau sur la colonne A tant qu'on ne rencontre pas une ligne vide.

et pour cela on doit déclarer deux variables : la première est Num_ligne et la deuxième est ligne_fin

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Juillet 2020

• #40

re

comme je connais pas le contexte

solution1 jusqu'a la dernière ligne non vide en partant d'en bas pour la next ligne

VB:

set f= sheets("le nom de la feuille")
with f.range(f.cells(2,1),f.cells(rows.count,1).end(xlup)
  .HorizontalAlignment = xlLeft
  .VerticalAlignment = xlCenter
  .MergeCells = True
end with

solution 2 jusqu'a la derniere ligne en partant de la 2 pour la next ligne
si il y a une cellule de vide entre deux ca s'arrete juste avant cette ligne vide

VB:

set f= sheets("le nom de la feuille")
with f.range(f.cells(2,1),f.cells(2,1).end(xldown)
  .HorizontalAlignment = xlLeft
  .VerticalAlignment = xlCenter
  .MergeCells = True
end with[/CODE

mais attention je réhitere mon avertissement sur la non logique de ta démarche(peut etre ne le sais tu pas)
en effet le mergecells=true va supprimer toutes les valeurs sauf la ligne 2 qu'il gardera dans tes cellules fusionnées

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 15 Juillet 2020

• #41

merci je vais regarder cela. f, c'est bien le nom de la feuille ? et il n 'y a pas de boucle , interessant.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Juillet 2020

• #42

c'est une variable representant la feuille ce n'est pas son nom
tu n'a qu'a changer le nom dans les guillemets et C EST TOUT!!!!
le reste tu n'y touche pas
je t'ai donné les deux contextes possibles
😉

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 16 Juillet 2020

• #43

par contre j'ai du mettre sub() et end sub et j'ai une qui devient tout rouge

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Juillet 2020

• #44

a ben oui je t'ai donné le moteur a toi de mettre çà dans une sub ou fonction
quelle ligne devient rouge???

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 16 Juillet 2020

• #45

Sub macroo()
Set f = Sheets("le nom de la feuille")
with f.range(f.cells(2,1),f.cells(rows.count,1).end(xlup)
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.MergeCells = True
End With
End Sub

celle qui est souligné

 

Vote positif 0 Vote négatif