Récupéré valeur cell + faire un calcul + réécrire cell

Bonjour,

Je pense que c'est qqc d'assez simple pourtant, je ne sais pas comment l'écrire.

Voici le bout de code de ma macro :

    Range("AL2").Select
    Range("AL2") = Range("AL2").Value + 1

Je souhaite récupérer la valeur de la cellule, l'incrémenté de 1 et écrire le résultat au même endroit.

Faut-il passé par le stockage en variable ?

Merci pour votre aide

Bonjour,

Essaie ce code (qui marche sur une sélection de cellules) :

Sub Edition_Collage_Spécial_Ajouter_1_à_sélection()

    For Each cell In Selection
            cell.Value = cell.Value + 1
    Next cellC

End Sub

Bonjour Gloub & Leon8121

J'ai quasiment la même question...

sauf qu'en fonction d'une condition je souhaite que la cellule suivante récupère la valeur de la cellule précédente et l'augmente de 1...

exemple : si A3 =1, condition remplie, alors A4 = A3+1 (donc valeur 2)

Savez vous comment faire ?

Merci d'avance

Bonjour,

Léon un essai.

Cordialement.

De même pour Lily.

Cordialement.

SALUT

oui c'est un simple code

mais apres va provoque des erreurs au sein de ton code complet ou le projet Svp donner moi une idee de ton projet

que voulez vous faire vraiment lillysg

MERCI

Bonsoir Amir & BigDaddy

Merci d'avoir répondu à ma question.

Pour moi cela fonctionne très bien en adaptant le code fourni par Amir à mon besoin particulier.

Encore merci pour le temps passé à m'aider...

Je ne sais pas si pour Léon c'est aussi le cas...

Je vous souhaite à tous une belle soirée & encore &

C'est un calendrier, 1 classeur par année et 1 feuille pour chaque mois, j'ai fais une "feuille config" et j'aimerais la dupliquer 12 fois et modifier ma cellule qui défini le mois (1 pour janv., 2 pour fev., ...) je voulais faire un p'tit script qui me duplique ma feuille et modifie la valeur de ma cellule

Sub DupliquerFeuille()
'
' Dupliquer feuille
'

'
    Sheets("Cal").Select
    Sheets("Cal").Copy Before:=Sheets("Stat")
    Range("AL2").Select
    Range("AL2") = Range("AL2").Value + 1
End Sub

Merci pour ton code ça marche, mais que pour 1 mois, pour aller plus loin, j'dois dupliquer 12 fois ma "feuille config", je me demande ce qui est le plus simple à faire

J'suis dispo sur Skype pour me faire un cours particulier