Problem VBA

[Guismo33]

Bonjour a tous,

Voici ma Vba qui me perturbe :

Sub Trier()
Dim i As Integer

Application.ScreenUpdating = False

Sheets("RESULTAT").Select
For i = 2 To 48 '''''selection tableau
Cells(i, 13).Select ''' va chercher en colonne 13 les infos
If Cells(i, 13) <> "" Then '''si infos
if Cells(i + 50, 13) = Cells(i + 50, 13) + 1 ''' recopie en colonne 13,ligne 50 plus bas
Cells(i + 1, 13).Select ''''
Else
Cells(i + 1, 13).Select
End If
Next i
Application.ScreenUpdating = True
End Sub

mon probleme c que je voudrais prendre les infos sur cells(i,13) il y a des numeros (de 8 à 3)
et si cells(i,13)=8 ou 7 ou 6 ou 5 ou 4 ou 3 me donne résultat 1 mais sur d'autre colonne en rapport du chiffre qu'il trouve.

en formule ce serais 6 tableau nommé 3,4,5,6,7,8 et si A3=8 donc resultat 1 en tableau nommé 8 en G3 et si ont efface A3
donc g3+1 pour la prochaine frappe de chiffre que l'ont ferra sur A3


Cdlmnt 🙂

 

[tototiti2008]

Re : Problem VBA

Bonjour Guizmo 🙂,

172ème sujet de ta part ayant pour titre "Problème VBA" (bon, j'exagère un peu mais...), les futurs utilisateurs qui feront des recherches sur le forum te remercient tous pour ta précision...

 

[vgendron]

Re : Problem VBA

hello
avec un fichier exemple ce serait plus pratique

et .au passage.. ta condition:

If Cells(i + 50, 13) = Cells(i + 50, 13) + 1

ne sera jamais vérifiée..
c'est un peu comme si tu écrivais:
si 2=2 +1

et tu parles de copier coller..
mais je ne vois que des select..
en gros. ta macro en l'état ne fait strictement rien.. ;-)