aide pour macro excel Résolu/Fermé

Question

Bonjour, si quelqu'un peut m'aider a trouver une macro pour mon problème,

http://img268.imageshack.us/img268/1504/exell.jpg

voici mon fichier et j'aimerai en faite pouvoir réaliser une macro qui quand je l'active, me rajoute 1 a tous les chiffres de la colonne A sauf celui de la ligne du chiffre qui est marqué dans le tableau LIGNE

pour cette exemple cela me donnerai en A2=5+1=6, A3=6+1=7 , A4=60+1=61 , A5=52 (car le tableau LIGNE me dit 5 donc je n'ajoute pas 1 a la ligne 5) , A6=30+1=31 , A7=3 , A8=20

merci d'avance

Bidouilleu_R · Answer

Bonjour
je te propose ce petit code

pour faire simple 
1: Tu nommes la cellules qui contient le numero de ligne 'num_ligne'
2: Alt F11, insère un module et copie/colle le code ci dessous.
3: tu crées un bouton sur ta feuille tu lui affectes la macro Ajout
4: si c'est bon tu mets en résolu : )


Sub Ajout()
Dim I As Integer
Dim c As Variant
Dim Derlig As Integer

Derlig = Sheets(1).[A65535].End(xlUp).Row
I = Sheets(1).Range("num_ligne").Value  ' ou i= sheets(1).range("E2").value si ta valeur est en E2
For Each c In Range("A2:A" & Derlig)
    If c.Row <> I Then
        c.Value = c.Value + 1
    End If

Next


End Sub

Bidouilleu_R · Answer

j'ai écris le code en modifiant la ligne en gras
Si tu veux utiliser une autre cellule c'est à cet endroit qu'il faut changer...
maintenant pour nommer une cellule.

Sous excel 97/2003 tu fais
Click sur la cellule E2 dans notre exemple, Insertion / nom / Définir tu tapes num_ligne et click ok

sous excel 2007 Formules / Définir un nom / définir un nom
un raccourci en haut à gauche dans la feuille de calcul à gauche de fx il y a la zone de nom
Tu tapes directement ton nom.



Sub Ajout()
Dim I As Integer
Dim c As Variant
Dim Derlig As Integer

Derlig = Sheets(1).[A65535].End(xlUp).Row
I = Sheets(1).Range("E2").Value 
For Each c In Range("A2:A" & Derlig)
    If c.Row <> I Then
        c.Value = c.Value + 1
    End If

Next


End Sub

Bidouilleu_R · Answer

si je voudrai mette le chiffre de la ligne choisi a 0 celui la

Ben je crois que ça ne fera rien.

car le principe est la comparaison du n° de ligne de la colonne A2 et Axxx avec la cellule E2

comme la ligne 0 n'existe pas toutes les valeurs seront incrémentées de 1

Bidouilleu_R · Answer

j'avais pas compris en effet!!

Sub Ajout()
Dim I As Integer
Dim c As Variant
Dim Derlig As Integer

Derlig = Sheets(1).[A65535].End(xlUp).Row
I = Sheets(1).Range("E2").Value 
For Each c In Range("A2:A" & Derlig)
    If c.Row <> I Then
        c.Value = c.Value + 1
    else
        c.value=0 
    End If

Next


End Sub

Bidouilleu_R · Answer

Bonne journée et tu mets résolu sur le premier post.
Merci

seb · Answer

je ne sait pas ou mettre resolu?

Bidouilleu_R · Answer

sur le premier post la où tu as posé ta question il y a des icones en haut à droite

seb · Answer

nan je vois rien peut ètre parce que je suis pas inscrit au site

Aide pour macro excel

8 réponses

Discussions similaires