Derniere colonne non vide

bonjour,

Je souhaiterai sélectionner la dernière colonne non vide de mon tableau qui se décale vers la droite chaque semaine pour ensuite la supprimer et la remplacer par un calcul

comment dois je faire ?

ci joint mon tableau

merci à vous

33test-macro.xlsx (13.16 Ko)

Bonjour Laliz, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim DC As Integer 'déclare la variable DC (Dernière Colonne)

'définit l la dernière colonne éditée DC de la ligne 1 de l'onglet "Feuil1"
DC = Sheets("Feuil1").Cells(1, Application.Columns.Count).End(xlToLeft).Column
Sheets("Feuil1").Columns(DC).Select 'sélectionne la colonne DC de l'onglet "Feuil1"
End Sub

Bonjour,

Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column).Activate

Merci beaucoup

et si je veux sélectionner la première cellule vide pour y mettre une formule par exemple?

Re,

Sub Macro1()
Dim DC As Integer 'déclare la variable DC (Dernière Colonne)
Dim PLV As Long 'déclare la variable PLV (Première Ligne Vide)

'définit la dernière colonne éditée DC de la ligne 1 de l'onglet "Feuil1"
DC = Sheets("Feuil1").Cells(1, Application.Columns.Count).End(xlToLeft).Column
PLV = Cells(Application.Rows.Count, DC).End(xlUp).Row + 1
Sheets("Feuil1").Cells(PLV, DC).Formula = ' ta formule ici...
End Sub

et est ce que je peux dans ma formule faire une soustraction entre 2 variable?

Re,

Pourquoi t'essaies pas avant de poser la question ?

si j'essai mais j'y arrive pas

sinon je poserai pas la question

Re,

Mais alors donne-nous les moyens de te répondre P... de B... de M... ! (Purée de Bananes Mexicaines évidement...)

C'est quoi la formule ? C'est quoi les variables ?

Pffff !... C'est épuisant. Qu'est-ce qu'on perd comme temps !...

désolée de te faire perdre ton temps .

je suis novice ...

voir dans tableau ci joint

je voudrais dans ma cellule "variable 1" calculer (variable 2-variable 3)

c'est des variable car chaque semaine 1 colonnes s'ajoute

23test-macro.xlsx (12.78 Ko)

Re,

Si on utilise ce qui a été vu plus haut ça donne :

Sub Macro1()
Dim DC As Integer 'déclare la variable DC (Dernière Colonne)
Dim PLV As Long 'déclare la variable PLV (Première Ligne Vide)

'définit la dernière colonne éditée DC de la ligne 1 de l'onglet "Feuil1"
DC = Sheets("Feuil1").Cells(1, Application.Columns.Count).End(xlToLeft).Column
PLV = Cells(Application.Rows.Count, DC).End(xlUp).Row + 1
Sheets("Feuil1").Cells(PLV, DC+1).FormulaR1C1 = "=RC[-1]-RC[-2]"
End Sub

Mais si tu dois le faire pour toutes les lignes ça donnerait :

Sub Macro3()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DC As Integer 'déclare la variable DC (Dernière Colonne)
Dim DL As Long 'déclare la variable DL (Dernière Ligne)

Set O = Worksheets("Feuil1") 'définit l'onglet O
'définit la dernière colonne éditée DC de la ligne 1 de l'onglet O
DC = O.Cells(1, Application.Columns.Count).End(xlToLeft).Column
'définit la dernière cellule éditée DL de la colonne A de l'onglet O
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row
O.Cells(2, DC + 1).FormulaR1C1 = "=RC[-1]-RC[-2]" 'place la formule dans la cellule ligne 2 colonne DC
'étire la formule vers le bas jusqu'a la dernière ligne DL
O.Cells(2, DC + 1).AutoFill Destination:=O.Range(O.Cells(2, DC + 1), O.Cells(DL, DC + 1)), Type:=xlFillDefault
End Sub
Rechercher des sujets similaires à "derniere colonne vide"