Débutant en VBA
Bonjour,
Cela fait des heures que je cherche à solutionner ce problème. N'étant pas expert en la matière, je fais appel à votre aide afin de résoudre mon problème.
Je m'explique :
Je voudrai à partir de la cellule A6 en utilisant la formule gauche de prendre les 4 premières lettres de la colonne E et à partir de la cellule E6 jusqu'à la dernière cellule de cette colonne(E). Le problème est que le fichier actuel comprend 132 lignes et que celui-ci est amené à être modifié chaque semaine.
Donc si j'ai 135 lignes, la macro s'arrêtera à 132 lignes.
Quelqu'un peut-il m'aider?
Merci d'avance,
Bonjour,
remplace ton code par celui-ci, ça devrait résoudre ton problème.
Sub Macro1()
Application.ScreenUpdating = False
Dim derLig As Long
derLig = Range("B" & Rows.Count).End(xlUp).Row
Range(Cells(6, 1), Cells(derLig, 1)).ClearContents
For a = 6 To derLig
Cells(a, 1) = Left(Cells(a, "E"), 4)
Next a
Application.ScreenUpdating = True
End SubBonsoir,
Je ne sais pas comment vous remercier.
Excellent, merci beaucoup, beaucoup...............
De rien...
Pensez à cliquer sur " résolu "
Rebonsoir,
Juste une derniere question. Dans la réponse que vous m'avez expliquer, il y est écris
"nb = Application.WorksheetFunction.CountA(Sheets("Feuil26").Range("e:e"))"
Ma question est si je travaille sur une autre feuille, dois je remplacer (Sheets("Feuil26") par Activesheets ou je manque un autre élément?
Bonjour,
Ci-joint adaptation du code de Game Over.
Pour lancer la procédure, effectuer Ctrl+q
Cdlt.
Option Explicit
Public Sub jep_v1()
Dim wS As Worksheet
Dim derLig As Long
Dim i As Long
Application.ScreenUpdating = False
Set wS = ActiveSheet
With wS
derLig = .Range("B" & Rows.Count).End(xlUp).Row
For i = 6 To derLig
.Cells(i, 1) = Left(.Cells(i, 5), 4)
Next i
End With
Set wS = Nothing
End SubBonjour,
Prenez la macro que les plus aguérris que moi on fait.
Et oui il aurait fallu changer le nom de la feuille.
Bonsoir tout le monde,
Concernant ma macro, j'ai toujours le même problème quand il s'agit de ligne variable.
Ce que j'essaye de faire, c'est de faire un tri alphabétique sur la colonne A (à partir de A6) et de faire ensuite les sous totaux.
Le problème c'est que je bloque lorsque le fichier comporte des lignes en plus la prochaine fois. La macro fait le tri et les sous totaux en rapport avec les lignes de l'autre feuille.
Merci de votre aide.
Je tiens aussi à dire que je prend soin des conseils antérieur que vous m'avez donné + je viens d'acheter un livre sur VBA excel mais pour un débutant c'est chaud.