Renommer cellule en incrementant sur les cellules suivantes
Bonjour a tous !!
Je sollicite votre aide pour m'aider à créer un code, qui doit être très simple pour vous mais moi je n'y arrive pas.
Le titre du sujet n'est peut être pas explicite donc je m'explique.
En prenant comme cellule de départ F1,
je voudrais la renommer avec la date du jour (type : jj-mm),
ensuite en relançant la macro qq jours plus tard je voudrais que ce soit la cellule G1 qui soit renommée,
et ainsi de suite jusqu'à la 100ème colonne.
En espérant que ce soit claire.
Pouvez vous m’écrire ce code ??
D'avance merci pour vos réponses.
Cordialement.
je voudrais la renommer avec la date du jour (type : jj-mm),
Bonsoir,
Renommer ? Tu es sûr ? Nommer signifie lui donner un nom (dans le classeur). Renommer, qu'elle en a déjà un et qu'on le change.
Et le nom que tu souhaites sera refusé par Excel, car commençant par un chiffre...
Cordialement.
Bonjour,
vous ne pouvez pas nommée une cellule par un nom qui ne commence pas par une lettre,
et le nom ne doit pas contenir d'espace ou autre caractère non autorisé sur excel
par exemple:
Names.Add Name:="Date_" & Format(Date, "dd_mm"), RefersTo:="=" & ActiveSheet.Name & "!" & ActiveCell.Addressest-ce bien ce que vous voulez faire ? nommé une cellule.
Salut a vous deux eyt merci pour vos réponses.
MFerrand tu as raison je veux nommer une cellule vide.
J'ai créer ce code qui fonctionne :
Sub ajout_date_résultat()
Range("F1") = Format(Date, "dd-mm")
End Sub
Sauf que j'ai "04-févr" qui s'affiche au lieu de "02-04", et si j'ecris "mm-dd" dans mon code j'ai dans ma cellule "02-avr" ce qui me conviens.
J'ai essayé avec la condition si F1 <>"" then Range("G1") mais je me perd un peu et le code risque d'etre long et fastidieux a ecrire.
Merci
Bon ! Tu ne nommes pas ! Un nom remplacerait la référence de cellule pour l'appeler...
Sub Dater()
Dim k%
With ActiveSheet
If .Cells(1, 6) <> "" Then
k = .Cells(1, .Columns.Count).End(xlToLeft).Column
Else
k = 6
End If
With .Cells(1, k)
.Value = Date
.NumberFormat = "dd-mmm" 'ou "dd-mm" si tu préfères
End With
End With
End SubCordialement.
Oui c'est vrai je renomme pas ma cellule, je veux écrire qq chose a l'intérieur, j'avais pas saisie la subtilité
Sinon merci pour ton code mais il ne fonctionne pas comme je le désire.
En fait il m'inscris la date du jour (celle du 02-04 et du 03-04 maintenant) dans la même cellule F1.
Ce que je souhaite c'est que qd ma cellule F1 est pleine si je lance ma macro un autre jour ce soit la cellule d'a coté (G1) qui se remplisse par la date du jour. Et ainsi de suite.
J’espère que je suis clair.
Re re re re merci !
Au temps pour moi ! J'aurais dû tester...
k = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1Ajouter +1 sur cette ligne.
Cordialement.
MFerrand a écrit :Au temps pour moi ! J'aurais dû tester...
Tu rigole, tu peut te le permettre !!! 8)
En tout cas ça fonctionne parfaitement.
Milles MERCI.
Salut Mferrand !!
Je reviens vers toi car je me suis remis sur mon programme.
Je voudrais rajouter quelque chose a ton code qui fonctionne parfaitement :
Quand il me met la date dans la cellule G1 je voudrais qu'il me copie la formule suivante :
=SIERREUR(RECHERCHEV(A2;'xxxx'!$A$2:$E$51;5;FAUX);"") ou xxxx est le nom de la cellule G1 et qui correspond à une feuille
Et que cette formule soit copier sur une plage de cellule G2 à G51.
Et bien sur quand cette colonne est rempli il passe à la suivante.
J'espere etre clair.
Merci d'avance.
Bonjour,
Sub Dater()
Dim k%
With ActiveSheet
If .Cells(1, 6) <> "" Then
k = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
Else
k = 6
End If
With .Cells(1, k)
.Value = Date
.NumberFormat = "dd-mmm" 'ou "dd-mm" si tu préfères
.Offset(1).Formula = "=IFERROR(VLOOKUP(A2,'" & .Text & "'!$A$2:$E$51,5,False),"""")"
.Offset(1).AutoFill .Offset(1).Resize(50)
End With
End With
End Submerci ca fonctionne parfaitement